(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    497322,      10593]
NotebookOptionsPosition[    474568,      10242]
NotebookOutlinePosition[    474966,      10258]
CellTagsIndexPosition[    474923,      10255]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", 
    RowBox[{"*", "Set", " ", "filepath"}]}], 
   "****)"}]}], "\[IndentingNewLine]", 
 RowBox[{"FilePathFig7", " ", "=", 
  "\"\</Users/patrickhulme/Dropbox/Replicate/War_and_Responsibility/Output/\
Figure_7.pdf\>\""}]}], "Input",
 CellChangeTimes->{{3.812398256571183*^9, 3.8123982565941*^9}, {
   3.945528987807094*^9, 3.945528991431355*^9}, 3.945606988366623*^9, 
   3.945607171460387*^9, {3.945607213094792*^9, 3.945607249831828*^9}, 
   3.945607352475662*^9, {3.945954139237969*^9, 3.94595413992866*^9}, 
   3.945956430590631*^9},
 CellLabel->
  "In[2596]:=",ExpressionUUID->"a97abf7b-cdfc-4a81-8ac8-2e39647e2bce"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_7.pdf\"\>"], "Output",
 CellChangeTimes->{{3.945529050035478*^9, 3.9455290766361847`*^9}, 
   3.9455291102933283`*^9, 3.945529179198004*^9, 3.945529346412636*^9, 
   3.945605806017425*^9, {3.945606990981889*^9, 3.945607001934876*^9}, 
   3.945607288940051*^9, 3.9456861422681217`*^9, {3.945954143331036*^9, 
   3.945954144487315*^9}, 3.945954781537044*^9, 3.945956468784276*^9},
 CellLabel->
  "Out[2597]=",ExpressionUUID->"0566139a-cd5c-4aa5-9ed2-788f0f385f03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{"cjmax", ">", "0"}], "&&", 
     RowBox[{"t", ">", "0"}], " ", "&&", 
     RowBox[{"s", ">", "0"}], "&&", " ", 
     RowBox[{"t", "<", 
      RowBox[{"(", 
       RowBox[{"1", "/", "s"}], ")"}]}], "&&", 
     RowBox[{"a", ">", "0"}], " ", "&&", " ", 
     RowBox[{"beta", " ", ">", "0"}], " ", "&&", " ", 
     RowBox[{"k", " ", ">", " ", "0"}], " ", "&&", " ", 
     RowBox[{"k", "<", 
      FractionBox["beta", "t"]}], "&&", 
     RowBox[{"s", "<", 
      FractionBox[
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], 
       RowBox[{"beta", " ", "t"}]]}]}]}], "\[IndentingNewLine]"}]}]], "Input",\

 CellChangeTimes->{{3.906833628793285*^9, 3.906833629661681*^9}, {
   3.906870227038471*^9, 3.906870230042478*^9}, {3.906870835475369*^9, 
   3.9068708360751867`*^9}, 3.906870918734144*^9, {3.906871011129862*^9, 
   3.9068710167325706`*^9}, {3.906871359521653*^9, 3.906871360430441*^9}},
 CellLabel->
  "In[2598]:=",ExpressionUUID->"9343096e-8a71-443c-9610-f10a7a28083c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cjmax", ">", "0"}], "&&", 
  RowBox[{"t", ">", "0"}], "&&", 
  RowBox[{"s", ">", "0"}], "&&", 
  RowBox[{"t", "<", 
   FractionBox["1", "s"]}], "&&", 
  RowBox[{"a", ">", "0"}], "&&", 
  RowBox[{"beta", ">", "0"}], "&&", 
  RowBox[{"k", ">", "0"}], "&&", 
  RowBox[{"k", "<", 
   FractionBox["beta", "t"]}], "&&", 
  RowBox[{"s", "<", 
   FractionBox[
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}], 
    RowBox[{"beta", " ", "t"}]]}]}]], "Output",
 CellChangeTimes->{{3.906871368279895*^9, 3.90687137341665*^9}, 
   3.90687140956881*^9, 3.906873170081173*^9, 3.906900244968758*^9, 
   3.906902297199749*^9, 3.906902343696555*^9, 3.9069033042219353`*^9, 
   3.906903726802833*^9, 3.906903959131824*^9, 3.906904210348928*^9, 
   3.906904292364184*^9, 3.906904618512134*^9, 3.906904678590773*^9, 
   3.90690510446926*^9, 3.906905230822467*^9, 3.906905390753211*^9, 
   3.9069055130017443`*^9, 3.906905648730934*^9, 3.906905912167182*^9, 
   3.90690618517735*^9, 3.9069066055256453`*^9, 3.906906675487516*^9, 
   3.9069071735943003`*^9, 3.906907280389303*^9, 3.906909497656115*^9, 
   3.906910281527849*^9, 3.906910417596212*^9, 3.9069678879261847`*^9, 
   3.906967964955464*^9, 3.9069691399781933`*^9, 3.906969405568071*^9, 
   3.90697027436611*^9, 3.906970506132606*^9, 3.906974843163919*^9, 
   3.9069770822693663`*^9, 3.907926907599227*^9, 3.908623694212427*^9, 
   3.908629466933708*^9, 3.908629604369563*^9, 3.90862984648818*^9, 
   3.9086308457044992`*^9, 3.908631019535386*^9, 3.945503218448069*^9, 
   3.9455033514902678`*^9, 3.945504439166964*^9, {3.945529050054003*^9, 
   3.945529076669641*^9}, 3.945529110324131*^9, 3.945529179237473*^9, 
   3.945529346436613*^9, 3.945605806050584*^9, 3.945607001965055*^9, 
   3.945607288973297*^9, 3.945686142297254*^9, 3.945954152804654*^9, 
   3.945954781562867*^9, 3.945956468803403*^9},
 CellLabel->
  "Out[2598]=",ExpressionUUID->"2bdc075e-afdc-48a6-9ae7-ecbcaf3393b6"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812398301797881*^9, 3.8123983046326027`*^9}, 
   3.812398705283208*^9, {3.8146312233619137`*^9, 3.8146312533776827`*^9}, {
   3.814632175510397*^9, 3.814632254102447*^9}, 3.9455033634276657`*^9, 
   3.94568606683195*^9},
 CellLabel->
  "In[2599]:=",ExpressionUUID->"bbaeda3e-0560-40a0-9502-37223576c581"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Node1P", " ", "=", " ", 
    RowBox[{"d", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2P", " ", "=", 
    RowBox[{"d", "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3P", " ", "=", "d"}], "\[IndentingNewLine]", 
   RowBox[{"Node4P", " ", "=", " ", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", "a"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5P", " ", "=", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", "a", " ", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"k", "*", 
        RowBox[{"f", "/", "beta"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6P", "=", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"k", "*", 
        RowBox[{"f", "/", "beta"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node1C", " ", "=", " ", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2C", " ", "=", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3C", " ", "=", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node4C", " ", "=", " ", 
    RowBox[{
     RowBox[{"p", "*", "beta"}], "-", 
     RowBox[{"s", "*", "f"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5C", " ", "=", 
    RowBox[{"p", "*", "beta"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6C", "=", 
    RowBox[{"p", "*", "beta"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node1S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node2S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node3S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node4S2", " ", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node5S2", " ", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6S2", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.8123983153939257`*^9, 3.812398703602755*^9, {3.8124188575789623`*^9, 
   3.8124190637747803`*^9}, {3.812419128439455*^9, 3.812419132766797*^9}, {
   3.812419170823373*^9, 3.812419180992365*^9}, {3.8124192219736156`*^9, 
   3.81241929731285*^9}, {3.812419331481042*^9, 3.812419505562839*^9}, {
   3.812419551947742*^9, 3.812419611058012*^9}, {3.812419657198216*^9, 
   3.812419703437456*^9}, {3.8145660704131193`*^9, 3.814566078263488*^9}, {
   3.814627959155013*^9, 3.814628056503428*^9}, {3.814628648050104*^9, 
   3.814628650694523*^9}, 3.814656303770749*^9, {3.814724254233762*^9, 
   3.81472425515473*^9}, {3.859213578796434*^9, 3.859213581724326*^9}, {
   3.8629698684876966`*^9, 3.8629698711370564`*^9}, {3.863145545053953*^9, 
   3.863145550686697*^9}, 3.9064930517552*^9},
 CellLabel->
  "In[2600]:=",ExpressionUUID->"a1da13ca-4282-4846-bea1-3d36af441041"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468820155*^9},
 CellLabel->
  "Out[2600]=",ExpressionUUID->"cbd6a569-9b3c-4762-80fb-fd63bb153802"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468822229*^9},
 CellLabel->
  "Out[2601]=",ExpressionUUID->"e9984917-669a-4e7e-939d-30a6d60f2003"],

Cell[BoxData["d"], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.9459564688237877`*^9},
 CellLabel->
  "Out[2602]=",ExpressionUUID->"b7ebe665-8d72-4d48-b06a-fa020a72241a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468825077*^9},
 CellLabel->
  "Out[2603]=",ExpressionUUID->"c5f89517-8eae-438e-9cb0-8b6a60483d11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "p"}], ")"}]}], "beta"], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.9459564688262653`*^9},
 CellLabel->
  "Out[2604]=",ExpressionUUID->"f3918591-786d-4772-80bf-aca6d5a0df11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"f", " ", "k", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "beta"]}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468827433*^9},
 CellLabel->
  "Out[2605]=",ExpressionUUID->"929d298f-aadf-4944-a23e-5c6a20956c5f"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468828555*^9},
 CellLabel->
  "Out[2606]=",ExpressionUUID->"1a8a573b-7e64-43a6-a129-2dd6f6dbdc60"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468829701*^9},
 CellLabel->
  "Out[2607]=",ExpressionUUID->"9a2964c2-e1ad-42c2-a566-30fc0a6e1d2c"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468831002*^9},
 CellLabel->
  "Out[2608]=",ExpressionUUID->"71d9572a-b1ce-4652-ae3a-d6c4a3a4c718"],

Cell[BoxData[
 RowBox[{
  RowBox[{"beta", " ", "p"}], "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468832193*^9},
 CellLabel->
  "Out[2609]=",ExpressionUUID->"3fdd05b0-5643-486a-b43c-c2801aca747f"],

Cell[BoxData[
 RowBox[{"beta", " ", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468833374*^9},
 CellLabel->
  "Out[2610]=",ExpressionUUID->"2fb8146f-5bbc-4705-8257-86d3e11459f9"],

Cell[BoxData[
 RowBox[{"beta", " ", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468834403*^9},
 CellLabel->
  "Out[2611]=",ExpressionUUID->"4bd58257-00f2-4cf6-b757-66aa6b3ab54e"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468835451*^9},
 CellLabel->
  "Out[2612]=",ExpressionUUID->"e13b5be7-5263-4e1a-9848-59dae02064f8"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468836512*^9},
 CellLabel->
  "Out[2613]=",ExpressionUUID->"916ec979-026b-4d8e-bda3-2d80f0147bd1"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468837565*^9},
 CellLabel->
  "Out[2614]=",ExpressionUUID->"f57b5cd6-99b5-4b56-93ea-6ad1375e9c3b"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468838614*^9},
 CellLabel->
  "Out[2615]=",ExpressionUUID->"ede349f3-a397-4b61-b2e0-320a34877a4e"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.945956468839632*^9},
 CellLabel->
  "Out[2616]=",ExpressionUUID->"892bb058-9228-4fdb-b6bf-e8317d2c109e"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906900247081079*^9, 3.906902297221143*^9, 
   3.9069023437193947`*^9, 3.906903304235733*^9, 3.906903726815604*^9, 
   3.9069039591463737`*^9, 3.9069042103657303`*^9, 3.906904292388298*^9, 
   3.90690461853303*^9, 3.906904678608016*^9, 3.906905104490576*^9, 
   3.9069052308359947`*^9, 3.906905390772979*^9, 3.9069055130195827`*^9, 
   3.9069056487511053`*^9, 3.906905912188497*^9, 3.906906185190587*^9, 
   3.906906607387178*^9, 3.9069066773454027`*^9, 3.906907175736451*^9, 
   3.9069072804116907`*^9, 3.906909497679111*^9, 3.9069102815480556`*^9, 
   3.906910417620677*^9, 3.9069678895092487`*^9, 3.906967964983178*^9, 
   3.906969140003634*^9, 3.906969405588077*^9, 3.906970274389505*^9, 
   3.9069705061555147`*^9, 3.906974843189712*^9, 3.906977082288636*^9, 
   3.907926907637597*^9, 3.908623694232644*^9, 3.908629469265092*^9, 
   3.90862960552381*^9, 3.908629846518471*^9, 3.908630845731176*^9, 
   3.90863101955726*^9, 3.945503218453671*^9, 3.9455033660487747`*^9, 
   3.945504439187483*^9, {3.945529050069293*^9, 3.945529076688929*^9}, 
   3.945529110337842*^9, 3.9455291792499523`*^9, 3.9455293464606953`*^9, 
   3.945605806067877*^9, 3.945607001989318*^9, 3.945607288995372*^9, 
   3.945686142306081*^9, 3.945954156242525*^9, 3.945954781581622*^9, 
   3.94595646884068*^9},
 CellLabel->
  "Out[2617]=",ExpressionUUID->"d66847ee-b01c-4488-940d-776ce9189adf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Node4P"], "Input",
 CellChangeTimes->{{3.8124197465025454`*^9, 3.812419797569867*^9}},
 CellLabel->
  "In[2618]:=",ExpressionUUID->"ea345e6b-d5a6-44b5-9abd-5d85abb9555a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{{3.8124197495905733`*^9, 3.812419799994235*^9}, 
   3.8124260317614727`*^9, 3.812427228023155*^9, 3.812427656935439*^9, 
   3.8127542602286177`*^9, 3.81275469043906*^9, 3.81279297225566*^9, 
   3.812794688402398*^9, 3.8145660835257463`*^9, 3.814571103777553*^9, 
   3.814572671085354*^9, 3.814572927014537*^9, 3.814574098591984*^9, {
   3.81457741527503*^9, 3.814577427866959*^9}, 3.814580119234518*^9, 
   3.814582703774508*^9, 3.814586025948295*^9, 3.814613335480873*^9, 
   3.814628078433598*^9, 3.814628255586499*^9, 3.814628568457608*^9, 
   3.8146286592978697`*^9, 3.814646466583737*^9, 3.8146471791630573`*^9, 
   3.814649787610982*^9, 3.814656312416686*^9, 3.814663476920138*^9, 
   3.8146657295865793`*^9, 3.814723139542882*^9, 3.8147234230491467`*^9, 
   3.814723531023324*^9, 3.81472426229478*^9, 3.814740725694769*^9, 
   3.814746216284903*^9, 3.814746740598527*^9, 3.814746974653429*^9, 
   3.814747403124351*^9, {3.814748233740815*^9, 3.8147482454618893`*^9}, 
   3.8147484478209467`*^9, 3.814748518831437*^9, 3.814749844956551*^9, 
   3.814750024533986*^9, 3.8147510099226713`*^9, 3.814751978494487*^9, 
   3.814808028229335*^9, 3.814813052632237*^9, 3.81481334713302*^9, {
   3.814815002449789*^9, 3.814815024303362*^9}, 3.8148197616038847`*^9, 
   3.81481983182458*^9, 3.816977141366825*^9, 3.816985862163344*^9, 
   3.859217740249302*^9, 3.859217894514666*^9, 3.859217933360743*^9, 
   3.8592180813918533`*^9, 3.859218555253516*^9, 3.8592395641790237`*^9, 
   3.859245695439624*^9, 3.8594116355661716`*^9, 3.859589402894483*^9, 
   3.859591936005822*^9, 3.859592372031446*^9, 3.862969884713313*^9, 
   3.862971037755966*^9, 3.865254514929685*^9, 3.865291842123225*^9, 
   3.86529338028883*^9, 3.865294431566347*^9, 3.865294709361144*^9, 
   3.865295191254985*^9, 3.868400614180087*^9, 3.870021459831683*^9, 
   3.870100802507927*^9, 3.906486945547474*^9, 3.9064870048810987`*^9, 
   3.90649305590399*^9, 3.9065345436039886`*^9, 3.906536911660789*^9, 
   3.906561449868783*^9, 3.906830315439863*^9, 3.906830947422867*^9, 
   3.9068322993868723`*^9, 3.9068331693621273`*^9, 3.906833643819265*^9, 
   3.906869628418577*^9, 3.906870240529244*^9, 3.9068707952025146`*^9, 
   3.906871027929668*^9, 3.906871373519108*^9, 3.906871409679462*^9, 
   3.906873170163701*^9, 3.906900250520158*^9, 3.9069022973194237`*^9, 
   3.90690234382347*^9, 3.906903304346486*^9, 3.9069037269219503`*^9, 
   3.9069039592555933`*^9, 3.906904210478704*^9, 3.906904292493493*^9, 
   3.906904618638114*^9, 3.906904678722074*^9, 3.906905104599001*^9, 
   3.906905230951432*^9, 3.906905390884334*^9, 3.906905513132551*^9, 
   3.906905648863982*^9, 3.906905912303433*^9, 3.906906185317719*^9, 
   3.9069066104275703`*^9, 3.9069066833944473`*^9, 3.906907179172722*^9, 
   3.90690728063806*^9, 3.906909497805935*^9, 3.906910281668479*^9, 
   3.906910417748056*^9, 3.906967893694788*^9, 3.9069679651078577`*^9, 
   3.906969140134561*^9, 3.9069694057134666`*^9, 3.906970274518557*^9, 
   3.906970506286272*^9, 3.90697484333104*^9, 3.906977082416367*^9, 
   3.9079269076559896`*^9, 3.908623694268835*^9, 3.90862960766715*^9, 
   3.908629846561328*^9, 3.9086308457782803`*^9, 3.908631019606683*^9, 
   3.945503218477561*^9, 3.945503370832674*^9, 3.9455044392046556`*^9, {
   3.945529050085779*^9, 3.945529076716364*^9}, 3.945529110355694*^9, 
   3.945529179278504*^9, 3.9455293464887257`*^9, 3.945605806089904*^9, 
   3.945607002024661*^9, 3.945607289016211*^9, 3.945686142337899*^9, 
   3.945954167267271*^9, 3.945954781609239*^9, 3.9459564688512497`*^9},
 CellLabel->
  "Out[2618]=",ExpressionUUID->"7f2c8930-61f7-4721-ab00-bad5c3a1c01f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PUSG1", " ", "=", " ", "Node4P"}]], "Input",
 CellChangeTimes->{{3.812398341344249*^9, 3.812398359768594*^9}, 
   3.812419838690118*^9},
 CellLabel->
  "In[2619]:=",ExpressionUUID->"8ae6ab1f-8a70-426f-bab8-142a64cadb04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.8123983619551983`*^9, 3.812398717897027*^9, 3.812419841008668*^9, 
   3.8124260367079077`*^9, 3.812427231825337*^9, 3.812427660341072*^9, 
   3.812754264022407*^9, 3.812754692232346*^9, 3.8127929741263447`*^9, 
   3.8127946902763844`*^9, 3.8145660855322647`*^9, 3.814571107627377*^9, 
   3.814572673019929*^9, 3.814572929040038*^9, 3.814574100755496*^9, 
   3.814577430719771*^9, 3.814580125922846*^9, 3.814582706711092*^9, 
   3.814586028260397*^9, 3.814613338514593*^9, 3.814628080740519*^9, 
   3.814628257597754*^9, 3.814628570270149*^9, 3.814628661013995*^9, 
   3.814647186621121*^9, 3.8146497901429987`*^9, 3.8146563145899057`*^9, 
   3.814663479264289*^9, 3.814665731527388*^9, 3.814723141870756*^9, 
   3.814723424973961*^9, 3.8147235325761747`*^9, 3.814724264332039*^9, 
   3.814740727667358*^9, 3.814746218238093*^9, 3.8147467428607807`*^9, 
   3.814746976705476*^9, 3.814747405346673*^9, 3.814748248371532*^9, 
   3.814748449855255*^9, 3.814748520931347*^9, 3.814749846941626*^9, 
   3.814750026924737*^9, 3.8147510120381603`*^9, 3.814751981040401*^9, 
   3.8148080306448717`*^9, 3.814813054619276*^9, 3.8148133493799543`*^9, {
   3.814815014117041*^9, 3.814815026196164*^9}, 3.8148198341525507`*^9, 
   3.816977144185865*^9, 3.8169858646843224`*^9, 3.859213599702465*^9, 
   3.859217742087132*^9, 3.8592178945209217`*^9, 3.859217933367934*^9, 
   3.859218081412888*^9, 3.8592185552747507`*^9, 3.859239565955763*^9, 
   3.859245695452011*^9, 3.8594116356066*^9, 3.85958940292507*^9, 
   3.859591936030884*^9, 3.859592372048829*^9, 3.862969886280472*^9, 
   3.862971037767758*^9, 3.8652545149504547`*^9, 3.865291843958461*^9, 
   3.865293380314204*^9, 3.865294431573903*^9, 3.865294709383821*^9, 
   3.865295191264477*^9, 3.868400614203196*^9, 3.870021459837966*^9, 
   3.870100802519127*^9, 3.906486949999197*^9, 3.906487008696883*^9, 
   3.9064930581145573`*^9, 3.906534543615692*^9, 3.9065369116723137`*^9, 
   3.906561452225183*^9, 3.9068303172117*^9, 3.906830948803277*^9, 
   3.90683230094977*^9, 3.906833170667447*^9, 3.906833645404379*^9, 
   3.906869628424061*^9, 3.906870242660509*^9, 3.9068707970459337`*^9, 
   3.9068710279516582`*^9, 3.906871373527774*^9, 3.906871409704259*^9, 
   3.906873170174745*^9, 3.9069002520508947`*^9, 3.90690229732852*^9, 
   3.9069023438311853`*^9, 3.906903304363677*^9, 3.9069037269350986`*^9, 
   3.9069039592692137`*^9, 3.906904210496686*^9, 3.9069042925120277`*^9, 
   3.906904618653634*^9, 3.906904678730255*^9, 3.906905104607213*^9, 
   3.9069052309692698`*^9, 3.906905390899231*^9, 3.906905513151154*^9, 
   3.906905648879478*^9, 3.906905912319147*^9, 3.9069061853334312`*^9, 
   3.906906611863144*^9, 3.906906685535756*^9, 3.906907180924601*^9, 
   3.906907280673627*^9, 3.906909497814629*^9, 3.90691028168412*^9, 
   3.906910417757876*^9, 3.906967896318739*^9, 3.906967965125265*^9, 
   3.90696914014365*^9, 3.906969405728524*^9, 3.906970274536606*^9, 
   3.906970506303885*^9, 3.906974843347796*^9, 3.906977082432906*^9, 
   3.907926907667486*^9, 3.908623694272545*^9, 3.908629608860244*^9, 
   3.908629846565803*^9, 3.908630845791585*^9, 3.908631019611661*^9, 
   3.945503218483182*^9, 3.945503372401257*^9, 3.9455044392089987`*^9, {
   3.945529050096252*^9, 3.945529076719508*^9}, 3.9455291103656387`*^9, 
   3.9455291792816887`*^9, 3.945529346493005*^9, 3.945605806101665*^9, 
   3.9456070020299683`*^9, 3.945607289029581*^9, 3.945686142341258*^9, 
   3.945954169308226*^9, 3.945954781621976*^9, 3.945956468855929*^9},
 CellLabel->
  "Out[2619]=",ExpressionUUID->"43483d79-ac0c-4eab-8987-81eca771e461"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8123987138447742`*^9, 3.812398715548684*^9}, 
   3.812419848593663*^9},
 NumberMarks->False,
 CellLabel->
  "In[2620]:=",ExpressionUUID->"7289fde1-7696-493d-9129-055ea222d13b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814819821232368*^9, 3.8148198289492702`*^9}},
 CellLabel->
  "In[2621]:=",ExpressionUUID->"491f5257-8116-48b4-917f-552188ea19ee"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8127542734186707`*^9, 3.812754273431555*^9}},
 CellLabel->
  "In[2622]:=",ExpressionUUID->"c1fa1cc6-53c7-4f5b-87d0-c39caa201e86"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", " ", "=", " ", 
   RowBox[{"f", "/", 
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8123984144543247`*^9, 3.812398426652342*^9}, {
   3.8127541488781147`*^9, 3.81275419497545*^9}, {3.8127546707114153`*^9, 
   3.812754695069058*^9}, {3.8127945706095123`*^9, 3.812794583458572*^9}, {
   3.812794617639207*^9, 3.812794694916943*^9}, 3.812795569970971*^9, {
   3.8127956065556507`*^9, 3.812795610369285*^9}},
 CellLabel->
  "In[2623]:=",ExpressionUUID->"872ab524-b5ad-49f7-945c-3dc0caf0a113"],

Cell[BoxData[
 FractionBox["f", 
  RowBox[{"f", "+", "t"}]]], "Output",
 CellChangeTimes->{
  3.8123984286207943`*^9, {3.812398739939934*^9, 3.8123987426040792`*^9}, 
   3.812419858210994*^9, 3.812426040732464*^9, 3.812427234833325*^9, 
   3.812427670657199*^9, 3.81275427711449*^9, 3.812754696504015*^9, 
   3.812792976546193*^9, 3.812794696543561*^9, 3.8127955717843933`*^9, 
   3.81279561262225*^9, 3.8145660879867773`*^9, 3.814571109908819*^9, 
   3.8145726752689323`*^9, 3.8145729320585833`*^9, 3.814574103516272*^9, 
   3.81457743388205*^9, 3.814580137247307*^9, 3.814582709705422*^9, 
   3.814586030564981*^9, 3.8146133435354958`*^9, 3.8146280834959383`*^9, 
   3.8146282597035*^9, 3.8146285727911386`*^9, 3.814628663012671*^9, 
   3.814646536333753*^9, 3.8146471885524607`*^9, 3.814649792343522*^9, 
   3.814656316606295*^9, 3.814663481511673*^9, 3.814665734283771*^9, 
   3.814723145765933*^9, 3.814723426682521*^9, 3.814723534990629*^9, 
   3.814724266798855*^9, 3.814740729729248*^9, 3.814746220138658*^9, 
   3.8147467450188503`*^9, 3.814746979107338*^9, 3.814747408225863*^9, 
   3.814748251140883*^9, 3.814748452101842*^9, 3.8147485229571753`*^9, 
   3.8147498491197844`*^9, 3.814750029091498*^9, 3.8147510141202307`*^9, 
   3.814751984341198*^9, 3.814808033037092*^9, 3.814813057093933*^9, 
   3.81481335159833*^9, 3.8148143394860697`*^9, 3.814815029020791*^9, 
   3.814819734409648*^9, 3.814819836603105*^9, 3.8169771464457827`*^9, 
   3.8169858673420677`*^9, 3.859213604127096*^9, 3.859217743863834*^9, 
   3.8592178945526943`*^9, 3.8592179333896217`*^9, 3.859218081441146*^9, 
   3.85921855531015*^9, 3.8592395687719088`*^9, 3.859245695484495*^9, 
   3.85941163565913*^9, 3.859589402965304*^9, 3.859591936065839*^9, 
   3.859592372092162*^9, 3.862969888642459*^9, 3.862971037804858*^9, 
   3.865254514984091*^9, 3.865291845898252*^9, 3.8652933803517933`*^9, 
   3.8652944316145573`*^9, 3.865294709414094*^9, 3.865295191294962*^9, 
   3.868400614236869*^9, 3.870021459860898*^9, 3.870100802546472*^9, 
   3.90648701185217*^9, 3.90649306171591*^9, 3.9065345436349497`*^9, 
   3.9065369116889143`*^9, 3.9065614549911757`*^9, 3.906830318610661*^9, 
   3.906830950303115*^9, 3.9068323023595552`*^9, 3.9068331723848953`*^9, 
   3.90683364704532*^9, 3.9068696284576283`*^9, 3.906870254451532*^9, 
   3.906870799183868*^9, 3.906871027981391*^9, 3.906871373563452*^9, 
   3.90687140974013*^9, 3.9068731701952143`*^9, 3.906900254925755*^9, 
   3.906902297347672*^9, 3.906902343853773*^9, 3.9069033043906507`*^9, 
   3.906903726952771*^9, 3.906903959290872*^9, 3.906904210518865*^9, 
   3.9069042925424223`*^9, 3.90690461867732*^9, 3.90690467875263*^9, 
   3.906905104631369*^9, 3.906905230989523*^9, 3.9069053909214687`*^9, 
   3.9069055131721888`*^9, 3.9069056489017143`*^9, 3.906905912339839*^9, 
   3.90690618535443*^9, 3.9069066137913847`*^9, 3.9069066877997513`*^9, 
   3.9069071829396*^9, 3.906907280713818*^9, 3.906909497836749*^9, 
   3.906910281700356*^9, 3.906910417778454*^9, 3.9069678981945343`*^9, 
   3.906967965153393*^9, 3.906969140166293*^9, 3.9069694057517557`*^9, 
   3.906970274554111*^9, 3.906970506321617*^9, 3.9069748433636637`*^9, 
   3.90697708245606*^9, 3.907926907687489*^9, 3.9086236942991123`*^9, 
   3.908629610048603*^9, 3.908629846588504*^9, 3.908630845802431*^9, 
   3.908631019634672*^9, 3.945503218500655*^9, 3.9455033756452837`*^9, 
   3.945504439233186*^9, {3.9455290501118813`*^9, 3.9455290767381287`*^9}, 
   3.945529110379157*^9, 3.945529179304308*^9, 3.945529346516914*^9, 
   3.945605806109251*^9, 3.9456070020548573`*^9, 3.945607289047657*^9, 
   3.9456861423585997`*^9, 3.945954170908122*^9, 3.945954781643013*^9, 
   3.945956468871921*^9},
 CellLabel->
  "Out[2623]=",ExpressionUUID->"40e834fa-d6cc-419a-a6d3-b8d3711cb6b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["PUSG1"], "Input",
 CellChangeTimes->{{3.9068323040696373`*^9, 3.9068323055988493`*^9}},
 CellLabel->
  "In[2624]:=",ExpressionUUID->"8d10f708-dd52-48b7-8837-9851b0d0a3c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  RowBox[{"f", " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]]}]], "Output",
 CellChangeTimes->{
  3.8123986482441397`*^9, 3.812398751894994*^9, 3.812419863058622*^9, 
   3.812426045461879*^9, 3.812427237597538*^9, 3.8124276769399223`*^9, 
   3.8127542878897543`*^9, 3.812754699085227*^9, 3.812792980972949*^9, 
   3.81279470240171*^9, 3.8127955743710957`*^9, 3.812795615115451*^9, 
   3.814566090753726*^9, 3.8145711132581463`*^9, 3.814572677721115*^9, 
   3.8145729350168543`*^9, 3.814574106089093*^9, 3.814577438959589*^9, 
   3.814580143338106*^9, 3.8145827147093678`*^9, 3.8145860333382*^9, 
   3.814613349776353*^9, 3.814628086146081*^9, 3.814628261858967*^9, 
   3.814628574937962*^9, 3.814628665383719*^9, 3.814646538577052*^9, 
   3.814647190264256*^9, 3.814649794881838*^9, 3.8146563187334433`*^9, 
   3.814663484377804*^9, 3.814665738761632*^9, 3.814723148391204*^9, 
   3.81472342898365*^9, 3.8147235367143097`*^9, 3.814724268773589*^9, 
   3.814740732650961*^9, 3.8147462222993526`*^9, 3.814746747103343*^9, 
   3.814746981390012*^9, 3.814747411297194*^9, 3.814748525444672*^9, 
   3.814749851321308*^9, 3.8147500313759823`*^9, 3.814751018188012*^9, 
   3.81475198737291*^9, 3.8148080362029343`*^9, 3.814813059953784*^9, 
   3.814813353525381*^9, 3.814815031548544*^9, 3.81481984029342*^9, 
   3.8169771489430103`*^9, 3.816985869825254*^9, 3.859213605667845*^9, 
   3.859217745624218*^9, 3.859217894558703*^9, 3.859217933395116*^9, 
   3.859218081449367*^9, 3.859218555316627*^9, 3.859239570437171*^9, 
   3.859245695504209*^9, 3.859411635671438*^9, 3.85958940299291*^9, 
   3.85959193607903*^9, 3.85959237211982*^9, 3.862969890094736*^9, 
   3.86297103781638*^9, 3.8652545150041924`*^9, 3.865291848845146*^9, 
   3.865293380360845*^9, 3.865294431621958*^9, 3.865294709425355*^9, 
   3.865295191303042*^9, 3.8684006142540073`*^9, 3.870021459878433*^9, 
   3.870100802552855*^9, 3.906487018717223*^9, 3.906493064683366*^9, 
   3.906534543646164*^9, 3.9065369117000437`*^9, 3.9065614569851513`*^9, 
   3.90683032019425*^9, 3.906830951591552*^9, 3.906832306201851*^9, 
   3.906833174138242*^9, 3.906833649028223*^9, 3.906869628482409*^9, 
   3.906870254474704*^9, 3.906870802844554*^9, 3.906871028006421*^9, 
   3.90687137358631*^9, 3.906871409748085*^9, 3.906873170201581*^9, 
   3.906900256446656*^9, 3.9069022973586597`*^9, 3.906902343867868*^9, 
   3.906903304398567*^9, 3.906903726960598*^9, 3.906903959298884*^9, 
   3.906904210526926*^9, 3.90690429255072*^9, 3.9069046186867647`*^9, 
   3.906904678760963*^9, 3.906905104639933*^9, 3.906905230997724*^9, 
   3.906905390929833*^9, 3.906905513180708*^9, 3.906905648910199*^9, 
   3.9069059123484697`*^9, 3.906906185363912*^9, 3.906906615633945*^9, 
   3.9069066907110577`*^9, 3.9069071847928247`*^9, 3.906907280728628*^9, 
   3.906909497855545*^9, 3.9069102817158527`*^9, 3.9069104177912807`*^9, 
   3.906967899526614*^9, 3.906967965164545*^9, 3.906969140183023*^9, 
   3.9069694057671824`*^9, 3.9069702745722017`*^9, 3.906970506338841*^9, 
   3.906974843381131*^9, 3.90697708246599*^9, 3.907926907690386*^9, 
   3.9086236943140173`*^9, 3.908629611596405*^9, 3.908629846602688*^9, 
   3.908630845809469*^9, 3.908631019649146*^9, 3.945503218503005*^9, 
   3.945503378323104*^9, 3.945504439236232*^9, {3.945529050122486*^9, 
   3.945529076740732*^9}, 3.945529110381876*^9, 3.945529179314517*^9, 
   3.945529346529346*^9, 3.9456058061213217`*^9, 3.945607002073004*^9, 
   3.945607289050684*^9, 3.9456861423711233`*^9, 3.945954172441704*^9, 
   3.9459547816572742`*^9, 3.945956468882285*^9},
 CellLabel->
  "Out[2624]=",ExpressionUUID->"9ff984ef-2d8a-469e-b123-619fa18d990a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "f"], 
  RowBox[{"(", "PUSG1", ")"}]}]], "Input",
 CellChangeTimes->{{3.81241989420006*^9, 3.8124198950487623`*^9}, {
  3.812754298918442*^9, 3.8127543015603743`*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2625]:=",ExpressionUUID->"9f9e1ad6-f8cf-4873-a988-51cab06582b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "s"}], "-", 
  FractionBox["f", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}], "2"]], "+", 
  FractionBox["1", 
   RowBox[{"f", "+", "t"}]]}]], "Output",
 CellChangeTimes->{{3.812419891113946*^9, 3.812419897749814*^9}, 
   3.8124260498643093`*^9, 3.81242724211744*^9, 3.812427681871557*^9, 
   3.812754303615315*^9, 3.812754701685507*^9, 3.8127929832526007`*^9, 
   3.812794706194186*^9, 3.812795576803995*^9, 3.8127956175011177`*^9, 
   3.814566093037415*^9, 3.814571115782362*^9, 3.814572681378829*^9, 
   3.814572937694624*^9, 3.814574108589675*^9, 3.814577441502507*^9, 
   3.814580148251808*^9, 3.8145827185563927`*^9, 3.814586036102522*^9, 
   3.8146133533010902`*^9, 3.814628088466599*^9, 3.814628264111528*^9, 
   3.814628577399145*^9, 3.814628667187015*^9, 3.814646540358029*^9, 
   3.814647192629271*^9, 3.8146497985219584`*^9, 3.8146563206697903`*^9, 
   3.814663486700309*^9, 3.814665741300959*^9, 3.814723150140678*^9, 
   3.814723431158534*^9, 3.81472353910959*^9, 3.814724271076666*^9, 
   3.8147407350909*^9, 3.814746225842161*^9, 3.814746750284349*^9, 
   3.814746985179916*^9, 3.814747413736189*^9, 3.814748527468358*^9, 
   3.8147498535498457`*^9, 3.81475003381639*^9, 3.814751020832621*^9, 
   3.814808039007406*^9, 3.814813063233756*^9, 3.814813356199567*^9, 
   3.8148150339223547`*^9, 3.814819842586719*^9, 3.816977151831726*^9, 
   3.816985872175373*^9, 3.859213607387109*^9, 3.8592177476060467`*^9, 
   3.859217894604641*^9, 3.8592179334082537`*^9, 3.8592180814672527`*^9, 
   3.859218555334813*^9, 3.8592395721859837`*^9, 3.859245695528492*^9, 
   3.859411635707617*^9, 3.859589403007696*^9, 3.859591936103753*^9, 
   3.8595923721340923`*^9, 3.862969892144026*^9, 3.862971037842082*^9, 
   3.865254515026904*^9, 3.8652918514623537`*^9, 3.8652933803800488`*^9, 
   3.8652944316479483`*^9, 3.8652947094448223`*^9, 3.865295191324333*^9, 
   3.868400614260146*^9, 3.870021459884737*^9, 3.870100802570836*^9, 
   3.906487021463571*^9, 3.9064930678958282`*^9, 3.906534543659279*^9, 
   3.9065369117034597`*^9, 3.906561461034581*^9, 3.9068303220286713`*^9, 
   3.906830953467863*^9, 3.906832307876615*^9, 3.906833175401786*^9, 
   3.906833650965391*^9, 3.906869628487974*^9, 3.906870254480809*^9, 
   3.9068708051951733`*^9, 3.906871028013762*^9, 3.906871373594036*^9, 
   3.906871409773446*^9, 3.906873170209388*^9, 3.906900259180711*^9, 
   3.9069022973713923`*^9, 3.906902343875942*^9, 3.906903304415514*^9, 
   3.906903726973324*^9, 3.906903959311935*^9, 3.9069042105413237`*^9, 
   3.9069042925696077`*^9, 3.90690461870256*^9, 3.90690467878013*^9, 
   3.9069051046566772`*^9, 3.906905231010919*^9, 3.9069053909432487`*^9, 
   3.906905513193973*^9, 3.906905648923547*^9, 3.9069059123624372`*^9, 
   3.906906185378193*^9, 3.906906617830392*^9, 3.906906693270385*^9, 
   3.906907187828691*^9, 3.906907280759101*^9, 3.906909497870315*^9, 
   3.906910281724861*^9, 3.906910417800385*^9, 3.906967901267436*^9, 
   3.906967965178879*^9, 3.906969140192115*^9, 3.906969405776469*^9, 
   3.906970274581745*^9, 3.906970506348716*^9, 3.906974843391388*^9, 
   3.906977082489291*^9, 3.907926907693286*^9, 3.9086236943179398`*^9, 
   3.908629613381383*^9, 3.908629846608864*^9, 3.9086308458230762`*^9, 
   3.908631019656551*^9, 3.945503218506267*^9, 3.945503382641029*^9, 
   3.94550443924557*^9, {3.945529050125257*^9, 3.945529076744348*^9}, 
   3.945529110387184*^9, 3.945529179320557*^9, 3.9455293465336742`*^9, 
   3.945605806124667*^9, 3.9456070020774727`*^9, 3.945607289064262*^9, 
   3.9456861423746767`*^9, 3.9459541740876083`*^9, 3.9459547816613398`*^9, 
   3.945956468888942*^9},
 CellLabel->
  "Out[2625]=",ExpressionUUID->"e826ccb5-6cb8-4d76-81cb-b56bef914f00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "f"], 
     RowBox[{"(", "PUSG1", ")"}]}], "\[Equal]", "0"}], ",", "f", ",", 
   "NonNegativeReals"}], "]"}]], "Input",
 CellChangeTimes->{
  3.812419948150194*^9, 3.812754329476198*^9, {3.862969898863276*^9, 
   3.862969901251643*^9}, 3.906561465207498*^9, {3.906830334637167*^9, 
   3.906830339165193*^9}, {3.945503430614491*^9, 3.94550343269904*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2626]:=",ExpressionUUID->"7f016cc2-ccdc-45ea-910d-079d99f81495"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], 
      RowBox[{
        RowBox[{"s", "<", 
          FractionBox["1", "t"]}], "&&", 
        RowBox[{"beta", ">", 
          RowBox[{"-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], 
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"s", " ", "t"}]}]]}]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.812419945955167*^9, 3.812419953232877*^9}, 
   3.8124260544884567`*^9, 3.812427247019106*^9, 3.8124276858635387`*^9, 
   3.812754331955256*^9, 3.812754703728792*^9, 3.812792986221874*^9, 
   3.81279471080682*^9, 3.81279558027815*^9, 3.812795620988455*^9, 
   3.814566096501658*^9, 3.814571118037651*^9, 3.814572697392905*^9, 
   3.814572940146182*^9, 3.8145741109294977`*^9, 3.8145774439515343`*^9, 
   3.814580152817225*^9, 3.814582721192711*^9, 3.814586038595338*^9, 
   3.814613355776729*^9, 3.814628091790885*^9, 3.81462826609414*^9, 
   3.814628579842122*^9, 3.8146286692571087`*^9, 3.8146465424504843`*^9, 
   3.8146471945234747`*^9, 3.814649800972921*^9, 3.814656322736328*^9, 
   3.814663489366817*^9, 3.8146657439462633`*^9, 3.81472315272104*^9, 
   3.8147234347281923`*^9, 3.81472354128224*^9, 3.814724273516366*^9, 
   3.814740738352639*^9, 3.8147462277783747`*^9, 3.814746752583981*^9, 
   3.814746988723661*^9, 3.814747416218568*^9, 3.8147485300151854`*^9, 
   3.8147498556896353`*^9, 3.814750036510569*^9, 3.8147510233276243`*^9, 
   3.814808041245668*^9, 3.814813065687397*^9, 3.8148133583728647`*^9, 
   3.8148150358350477`*^9, 3.814819845020697*^9, 3.816977154407834*^9, 
   3.816985874895817*^9, 3.859213610813676*^9, 3.859217749224419*^9, 
   3.859217894652247*^9, 3.8592179334163647`*^9, 3.859218081473969*^9, 
   3.859218555341874*^9, 3.859245695540206*^9, 3.859411635759056*^9, 
   3.859589403036088*^9, 3.859591936135613*^9, 3.859592372161521*^9, 
   3.862969902101009*^9, 3.862971037855927*^9, 3.865254515099711*^9, 
   3.865293380390007*^9, 3.865294431679637*^9, 3.865294709456135*^9, 
   3.8652951913348227`*^9, 3.8684006143480053`*^9, 3.870021459970965*^9, 
   3.870100802606056*^9, 3.906487026430254*^9, 3.906493073103592*^9, 
   3.9065345436649523`*^9, 3.9065369117161007`*^9, 3.906561466735763*^9, {
   3.906830324132066*^9, 3.906830341821599*^9}, 3.9068309568682137`*^9, 
   3.906832309613694*^9, 3.906833176901531*^9, 3.906833653186213*^9, 
   3.906869628514481*^9, 3.9068702545146*^9, 3.906870812122546*^9, 
   3.906871028043989*^9, 3.9068713736255217`*^9, 3.906871409805237*^9, 
   3.9068731702417507`*^9, 3.90690026132752*^9, 3.9069022973944902`*^9, 
   3.906902343898871*^9, 3.9069033044391127`*^9, 3.906903726996215*^9, 
   3.906903959334968*^9, 3.9069042105649757`*^9, 3.906904292593464*^9, 
   3.906904618727057*^9, 3.90690467880364*^9, 3.906905104682713*^9, 
   3.906905231035016*^9, 3.9069053909670477`*^9, 3.906905513217437*^9, 
   3.9069056489473047`*^9, 3.9069059123861217`*^9, 3.9069061854024754`*^9, 
   3.906906620433557*^9, 3.9069066958944273`*^9, 3.906907190300013*^9, 
   3.906907280806155*^9, 3.906909497899909*^9, 3.9069102817493563`*^9, 
   3.906910417824291*^9, 3.906967965202619*^9, 3.9069691402164097`*^9, 
   3.906969405800662*^9, 3.9069702746060047`*^9, 3.906970506373711*^9, 
   3.90697484341788*^9, 3.906977082523633*^9, 3.9079269077827578`*^9, 
   3.908623694336494*^9, 3.908629614834981*^9, 3.9086298466279593`*^9, 
   3.908630845843089*^9, 3.908631019675796*^9, 3.945503218575403*^9, 
   3.945503386815284*^9, 3.945503440986061*^9, 3.945504439260009*^9, {
   3.945529050138941*^9, 3.945529076758703*^9}, 3.945529110401354*^9, 
   3.945529179335395*^9, 3.945529346549069*^9, 3.945605806141811*^9, 
   3.945607002095436*^9, 3.94560728907952*^9, 3.9456861423891993`*^9, 
   3.945954176936719*^9, 3.9459547816770897`*^9, 3.945956468906192*^9},
 CellLabel->
  "Out[2626]=",ExpressionUUID->"2bdc3a98-5d43-4b36-9ae3-e85e197a38c1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.812419881244492*^9},
 NumberMarks->False,
 CellLabel->
  "In[2627]:=",ExpressionUUID->"3908e3fa-864e-4660-a1bb-a94309da703c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg1", " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox["t", "s"]]}]}]], "Input",
 CellChangeTimes->{{3.8124199243012114`*^9, 3.812419924302507*^9}, 
   3.812419991770681*^9, 3.862969906961039*^9, 3.906561472683477*^9, 
   3.9068303505786867`*^9},
 CellLabel->
  "In[2628]:=",ExpressionUUID->"52930e94-608a-41f5-8721-3a912ac50b3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox["t", "s"]]}]], "Output",
 CellChangeTimes->{
  3.8124199957707*^9, 3.8124260594505*^9, 3.812427251697599*^9, 
   3.812427689528627*^9, 3.81275470826819*^9, 3.812792990936635*^9, 
   3.812795626721561*^9, 3.814566099521689*^9, 3.814571121651198*^9, 
   3.814572700348008*^9, 3.8145729424453*^9, 3.8145741134900103`*^9, 
   3.814577451908657*^9, 3.814580155909635*^9, 3.8145827255129147`*^9, 
   3.814586041723249*^9, 3.814613359147645*^9, 3.814628095258524*^9, 
   3.8146282682970057`*^9, 3.814628582050508*^9, 3.814628671562737*^9, 
   3.814646545525571*^9, 3.814647102316758*^9, 3.814647197043067*^9, 
   3.814649803586893*^9, 3.814656325617194*^9, 3.814663493496319*^9, 
   3.814665746396489*^9, 3.814723155027945*^9, 3.814723437456197*^9, 
   3.814723543564581*^9, 3.814724276043313*^9, 3.814740742026873*^9, 
   3.814746230320505*^9, 3.814746755190529*^9, 3.814746991550625*^9, 
   3.814747418761162*^9, 3.814748531792286*^9, 3.814749857778323*^9, 
   3.814750039267797*^9, 3.814751026268059*^9, 3.814808044650544*^9, 
   3.814813068287694*^9, 3.81481336344897*^9, 3.8148150387060213`*^9, 
   3.814819847994569*^9, 3.8169771572973824`*^9, 3.81698587782226*^9, 
   3.8592136148765783`*^9, 3.8592177512988367`*^9, 3.8592178946729517`*^9, 
   3.859217933435163*^9, 3.859218081485812*^9, 3.8592185553641033`*^9, 
   3.859239577688517*^9, 3.8592456955648527`*^9, 3.8594116358014603`*^9, 
   3.85958940306979*^9, 3.859591936164274*^9, 3.859592372193343*^9, 
   3.862969908201809*^9, 3.862971037889285*^9, 3.865254515122984*^9, 
   3.865291856821048*^9, 3.865293380414406*^9, 3.8652944317141323`*^9, 
   3.865294709480468*^9, 3.8652951913589373`*^9, 3.868400614369562*^9, 
   3.870021459989174*^9, 3.870100802628805*^9, 3.906487031593561*^9, 
   3.906493106352873*^9, 3.9065345436792173`*^9, 3.9065369117215433`*^9, 
   3.906561473686076*^9, 3.906830351977414*^9, 3.906830979054846*^9, 
   3.906832311687634*^9, 3.906833178697707*^9, 3.9068336601038322`*^9, 
   3.9068696285227327`*^9, 3.906870254524269*^9, 3.9068709235961723`*^9, 
   3.906871028056744*^9, 3.9068713736447268`*^9, 3.90687140981631*^9, 
   3.906873170251815*^9, 3.906900274221077*^9, 3.906902297410843*^9, 
   3.9069023439176807`*^9, 3.906903304459029*^9, 3.906903727013721*^9, 
   3.906903959350944*^9, 3.906904210582466*^9, 3.9069042926078176`*^9, 
   3.906904618746128*^9, 3.9069046788147573`*^9, 3.906905104693818*^9, 
   3.906905231053341*^9, 3.906905390983033*^9, 3.906905513234461*^9, 
   3.9069056489633427`*^9, 3.9069059124045*^9, 3.906906185419621*^9, 
   3.9069066229022207`*^9, 3.906906698309214*^9, 3.906907193718858*^9, 
   3.9069072808377247`*^9, 3.906909497931237*^9, 3.906910281760522*^9, 
   3.906910417840521*^9, 3.9069679747206507`*^9, 3.9069691402352867`*^9, 
   3.906969405818631*^9, 3.9069702746262913`*^9, 3.906970506395494*^9, 
   3.906974843440337*^9, 3.906977082555992*^9, 3.907926907798757*^9, 
   3.908623694342844*^9, 3.9086296206321297`*^9, 3.908629846635198*^9, 
   3.908630845859095*^9, 3.9086310196834497`*^9, 3.945503218590516*^9, 
   3.945503414009303*^9, 3.9455034562916613`*^9, 3.9455044392704067`*^9, {
   3.945529050152377*^9, 3.9455290767725773`*^9}, 3.945529110409916*^9, 
   3.945529179349375*^9, 3.9455293465634537`*^9, 3.9456058061565313`*^9, 
   3.945607002113946*^9, 3.945607289095663*^9, 3.9456861424030733`*^9, 
   3.9459541793716183`*^9, 3.945954781683432*^9, 3.945956468916214*^9},
 CellLabel->
  "Out[2628]=",ExpressionUUID->"5368cbdf-ccb3-4392-af0c-bd4ef6dcfc87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg1", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg1", " ", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg1", " ", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.812398808263483*^9, 3.812398808497265*^9}, 
   3.812419917068081*^9, {3.812420027883767*^9, 3.812420030240163*^9}, {
   3.812420066687707*^9, 3.812420074727107*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2629]:=",ExpressionUUID->"0b4e30f3-a84d-425e-90b3-db9eeba5a40a"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox["t", "s"]]}], 
  SqrtBox[
   FractionBox["t", "s"]]]], "Output",
 CellChangeTimes->{
  3.812420105025284*^9, 3.8124260643097553`*^9, 3.812427255563324*^9, 
   3.812427692764689*^9, 3.8127547200593777`*^9, 3.812792994956164*^9, 
   3.812795629454198*^9, 3.814566102094919*^9, 3.814571124274597*^9, 
   3.814572704249661*^9, 3.814572945189857*^9, 3.8145741160382032`*^9, 
   3.814577454571457*^9, 3.814580166111773*^9, 3.814582728594706*^9, 
   3.8145860441748047`*^9, 3.814613361725524*^9, 3.8146280987282953`*^9, 
   3.814628270453506*^9, 3.814628584812189*^9, 3.814628673482689*^9, 
   3.814646548642581*^9, 3.814647199697736*^9, 3.814649805688616*^9, 
   3.8146563276938543`*^9, 3.814663496081682*^9, 3.814665749148271*^9, 
   3.814723156794148*^9, 3.81472344061301*^9, 3.8147235460350027`*^9, 
   3.8147242787051067`*^9, 3.8147407461303167`*^9, 3.8147462331675663`*^9, 
   3.814746757293337*^9, 3.814746993449884*^9, 3.8147474215575533`*^9, 
   3.814748534261936*^9, 3.81474986003605*^9, 3.8147500418940277`*^9, 
   3.814751028773499*^9, 3.814808047244464*^9, 3.814813070424199*^9, 
   3.814813366036002*^9, 3.814815041863756*^9, 3.814819850652569*^9, 
   3.816977159881075*^9, 3.816985880145884*^9, 3.859213618167562*^9, 
   3.859217753007367*^9, 3.859217894679002*^9, 3.859217933447567*^9, 
   3.8592180815038443`*^9, 3.8592185553856173`*^9, 3.859239579505616*^9, 
   3.859245695584766*^9, 3.859411635812207*^9, 3.8595894030835457`*^9, 
   3.859591936178483*^9, 3.859592372206955*^9, 3.8629699100794067`*^9, 
   3.862971037917037*^9, 3.8652545151287127`*^9, 3.865291965350244*^9, 
   3.865293380436496*^9, 3.865294431721978*^9, 3.865294709505313*^9, 
   3.865295191381616*^9, 3.86840061437764*^9, 3.8700214599938707`*^9, 
   3.870100802635571*^9, 3.906487043631837*^9, 3.9064931343467407`*^9, 
   3.906534543692518*^9, 3.9065369117261677`*^9, 3.906561475326435*^9, 
   3.9068303543594723`*^9, 3.90683098045319*^9, 3.906832313101726*^9, 
   3.9068331800523577`*^9, 3.90683366198496*^9, 3.906869628546768*^9, 
   3.906870254544093*^9, 3.906870926068898*^9, 3.906871028079084*^9, 
   3.906871373654798*^9, 3.906871409841576*^9, 3.906873170265399*^9, 
   3.9069002765628967`*^9, 3.906902297419154*^9, 3.9069023439316196`*^9, 
   3.906903304467046*^9, 3.906903727021881*^9, 3.906903959364279*^9, 
   3.9069042105908337`*^9, 3.906904292625404*^9, 3.9069046187543583`*^9, 
   3.906904678831113*^9, 3.906905104711009*^9, 3.90690523106326*^9, 
   3.906905390991835*^9, 3.906905513244308*^9, 3.9069056489751663`*^9, 
   3.9069059124134893`*^9, 3.906906185428749*^9, 3.906906625030633*^9, 
   3.906906701034883*^9, 3.9069071961696177`*^9, 3.9069072808533163`*^9, 
   3.9069094979456*^9, 3.906910281776449*^9, 3.906910417850091*^9, 
   3.9069679762526484`*^9, 3.90696914024459*^9, 3.906969405835531*^9, 
   3.9069702746381493`*^9, 3.906970506405389*^9, 3.906974843450712*^9, 
   3.906977082574629*^9, 3.907926907811925*^9, 3.908623694361837*^9, 
   3.9086296232839813`*^9, 3.908629846652047*^9, 3.908630845864154*^9, 
   3.9086310197002907`*^9, 3.9455032185933857`*^9, 3.9455034160022163`*^9, 
   3.945503458656692*^9, 3.9455044392731256`*^9, {3.945529050157321*^9, 
   3.945529076777466*^9}, 3.945529110412739*^9, 3.945529179353552*^9, 
   3.94552934656734*^9, 3.945605806162506*^9, 3.945607002118383*^9, 
   3.9456072891025343`*^9, 3.945686142406138*^9, 3.945954182670327*^9, 
   3.9459547816973267`*^9, 3.945956468920664*^9},
 CellLabel->
  "Out[2629]=",ExpressionUUID->"63318e51-b663-4cdf-8839-9677634b635e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "pstarsg1", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2630]:=",ExpressionUUID->"a21d9971-e38f-41a3-ba2e-020f7ddc3459"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{"s", " ", "t"}]]}]], "Output",
 CellChangeTimes->{
  3.8592395819788923`*^9, 3.859245695598947*^9, 3.859411635850429*^9, 
   3.859589403111718*^9, 3.8595919362035313`*^9, 3.859592372234069*^9, 
   3.86296991197532*^9, 3.862971037928648*^9, 3.865254515146509*^9, 
   3.8652919674133*^9, 3.865293380444137*^9, 3.865294431750492*^9, 
   3.8652947095134573`*^9, 3.865295191392685*^9, 3.868400614394327*^9, 
   3.870021460010376*^9, 3.870100802653804*^9, 3.9064870478693666`*^9, 
   3.906493138026353*^9, 3.906534543696046*^9, 3.9065369117369623`*^9, 
   3.9065614771275187`*^9, 3.9068303567739897`*^9, 3.906830982072877*^9, 
   3.9068323148729057`*^9, 3.9068331818038797`*^9, 3.906833663235177*^9, 
   3.90686962855229*^9, 3.9068702545540752`*^9, 3.9068709285780497`*^9, 
   3.906871028088812*^9, 3.906871373670682*^9, 3.9068714098494997`*^9, 
   3.9068731702808867`*^9, 3.9069002788496227`*^9, 3.906902297431712*^9, 
   3.9069023439474907`*^9, 3.906903304484315*^9, 3.906903727034917*^9, 
   3.9069039593787403`*^9, 3.9069042106054497`*^9, 3.906904292633597*^9, 
   3.906904618770812*^9, 3.906904678847515*^9, 3.9069051047289343`*^9, 
   3.906905231076599*^9, 3.90690539100543*^9, 3.906905513257864*^9, 
   3.90690564898951*^9, 3.906905912428842*^9, 3.906906185443634*^9, 
   3.906906627165738*^9, 3.9069067031679697`*^9, 3.906907198487356*^9, 
   3.906907280881765*^9, 3.9069094979632063`*^9, 3.906910281792657*^9, 
   3.906910417863447*^9, 3.9069679793541107`*^9, 3.9069680120961018`*^9, 
   3.906969140262143*^9, 3.9069694058513947`*^9, 3.906970274656391*^9, 
   3.9069705064233437`*^9, 3.9069748434686537`*^9, 3.9069770825976057`*^9, 
   3.907926907817572*^9, 3.9086236943772984`*^9, 3.908629625112808*^9, 
   3.908629846659143*^9, 3.908630845871731*^9, 3.9086310197155323`*^9, 
   3.9455032186074123`*^9, 3.945503418325253*^9, 3.9455034608052397`*^9, 
   3.945504439283854*^9, {3.945529050168255*^9, 3.945529076790371*^9}, 
   3.945529110420204*^9, 3.9455291793643847`*^9, 3.945529346578261*^9, 
   3.945605806174369*^9, 3.9456070021344748`*^9, 3.945607289118684*^9, 
   3.945686142418001*^9, 3.945954183931773*^9, 3.945954781703372*^9, 
   3.945956468928252*^9},
 CellLabel->
  "Out[2630]=",ExpressionUUID->"583896a1-2d55-4b55-8c57-802d2767c6a5"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812420133156423*^9, 3.812420137924212*^9}, 
   3.81242609289252*^9},
 CellLabel->
  "In[2631]:=",ExpressionUUID->"d031db29-c301-4b31-b24d-ad8190a86451"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812426095509748*^9, 3.8124260955111523`*^9}, 
   3.814646562186528*^9, {3.814646605677108*^9, 3.814646665806785*^9}, 
   3.906487083476822*^9},
 CellLabel->
  "In[2632]:=",ExpressionUUID->"db8ba6cf-038f-4eaf-9e0c-ebb3c3c5bdd4"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"we", " ", "know"}], ",", " ", 
   RowBox[{"d", " ", "=", " ", 
    RowBox[{"c", " ", "+", " ", "pstarsg1"}]}], ",", " ", 
   RowBox[{
   "but", " ", "prez", " ", "doesnt", " ", "know", " ", "what", " ", "c", " ",
     "actually", " ", "is"}], ",", " ", 
   RowBox[{
    RowBox[{
    "so", " ", "has", " ", "to", " ", "make", " ", "decision", " ", "based", 
     " ", "on", " ", "range", " ", "of", " ", "possible", " ", "values"}], 
    "..."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.812419927077265*^9, 3.812419927078601*^9}, {
   3.8124201641518097`*^9, 3.8124201880861673`*^9}, 3.814646555496394*^9, {
   3.81464669109182*^9, 3.814646729661439*^9}, 3.814646784235464*^9, {
   3.906902308028202*^9, 3.90690230824619*^9}, {3.945686073618297*^9, 
   3.945686073968814*^9}},
 CellLabel->
  "In[2633]:=",ExpressionUUID->"f00d1e86-a8e0-4280-828e-b7885cec3a1c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8146465537360477`*^9, 3.814646553737171*^9}},
 CellLabel->
  "In[2634]:=",ExpressionUUID->"d79aa3aa-564f-4611-91b2-dae2a7ffaf1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cj1bar", "=", " ", 
    RowBox[{"d", " ", "-", " ", "pstarsg1"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.812419977573183*^9, {3.812420229443447*^9, 3.8124202306461487`*^9}, {
   3.812754778342697*^9, 3.812754791904779*^9}, {3.814646807493711*^9, 
   3.814646916213009*^9}, 3.8146470619386587`*^9, 3.9459542585800257`*^9},
 NumberMarks->False,
 CellLabel->
  "In[2635]:=",ExpressionUUID->"7f7ec321-2552-4a24-9780-1dda8a4675c6"],

Cell[BoxData[
 RowBox[{"d", "-", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "t"}], "+", 
    SqrtBox[
     FractionBox["t", "s"]]}], 
   SqrtBox[
    FractionBox["t", "s"]]]}]], "Output",
 CellChangeTimes->{
  3.814649809531878*^9, 3.814656331529437*^9, 3.8146635087009697`*^9, 
   3.814665755745338*^9, 3.814723160806705*^9, 3.8147234603545237`*^9, 
   3.814723549729309*^9, 3.814724281462297*^9, 3.814740755800787*^9, 
   3.814746238744804*^9, 3.814746761393525*^9, 3.814746997612818*^9, 
   3.814747424755653*^9, 3.8147485378037977`*^9, 3.8147498628699408`*^9, 
   3.814750044922303*^9, 3.8147510312574177`*^9, 3.8148080511367483`*^9, 
   3.814813073772455*^9, 3.814813369898082*^9, 3.814815045117284*^9, 
   3.814819855095869*^9, 3.816977164818705*^9, 3.8169858842485037`*^9, 
   3.859213670830043*^9, 3.85921775665837*^9, 3.859217894711679*^9, 
   3.859217933475301*^9, 3.859218081538571*^9, 3.859218555421062*^9, 
   3.8592401085659533`*^9, 3.85924569563582*^9, 3.859411635909601*^9, 
   3.85958940315464*^9, 3.859591936246076*^9, 3.859592372276087*^9, 
   3.862969916017461*^9, 3.862971037973909*^9, 3.865254515261017*^9, 
   3.865292047856639*^9, 3.8652933804844847`*^9, 3.865294431798028*^9, 
   3.865294709548897*^9, 3.8652951914276953`*^9, 3.8684006144591827`*^9, 
   3.870021460078198*^9, 3.870100802687613*^9, 3.906487128827716*^9, 
   3.906493150548048*^9, 3.906493251278028*^9, 3.906534543747971*^9, 
   3.906536911756174*^9, 3.906561484369403*^9, 3.9068303595932903`*^9, 
   3.906830984308341*^9, 3.906832317039853*^9, 3.906833183587834*^9, 
   3.906833667488483*^9, 3.906869628620596*^9, 3.906870254585744*^9, 
   3.9068709312689323`*^9, 3.9068710281239567`*^9, 3.906871373699773*^9, 
   3.9068714098880377`*^9, 3.9068731703103848`*^9, 3.9069002845246067`*^9, 
   3.906902297452332*^9, 3.90690234397367*^9, 3.906903304514168*^9, 
   3.90690372705441*^9, 3.906903959400234*^9, 3.906904210628888*^9, 
   3.9069042926597137`*^9, 3.9069046187949677`*^9, 3.9069046788728867`*^9, 
   3.906905104753235*^9, 3.9069052310985622`*^9, 3.906905391025181*^9, 
   3.9069055132808*^9, 3.90690564901293*^9, 3.9069059124520817`*^9, 
   3.906906185467121*^9, 3.90690662959373*^9, 3.9069067052188597`*^9, 
   3.9069072009079103`*^9, 3.9069072809253407`*^9, 3.906909497990601*^9, 
   3.9069102818162746`*^9, 3.906910417884753*^9, 3.906968099095364*^9, 
   3.906969140287816*^9, 3.906969405875287*^9, 3.9069702746869*^9, 
   3.90697050645092*^9, 3.9069748434987173`*^9, 3.906977082656748*^9, 
   3.907926907838578*^9, 3.9086236944018307`*^9, 3.908629630811206*^9, 
   3.908629846682817*^9, 3.9086308458952227`*^9, 3.908631019742406*^9, 
   3.945503218627181*^9, 3.94550346801576*^9, 3.945504439297634*^9, {
   3.94552905018629*^9, 3.945529076808247*^9}, 3.945529110432725*^9, 
   3.945529179383659*^9, 3.945529346599906*^9, 3.9456058061989517`*^9, 
   3.945607002163011*^9, 3.945607289146761*^9, 3.945686142434802*^9, 
   3.945954261074068*^9, 3.945954781722698*^9, 3.9459564689439774`*^9},
 CellLabel->
  "Out[2635]=",ExpressionUUID->"ad61f13c-2f81-4525-b90b-57714ce83fe3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "cj1bar", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2636]:=",ExpressionUUID->"22a5a40d-ae1f-45e8-847a-df7a92baf68a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", "d", "+", 
  SqrtBox[
   RowBox[{"s", " ", "t"}]]}]], "Output",
 CellChangeTimes->{
  3.85924011278023*^9, 3.85924569564822*^9, 3.859411635950182*^9, 
   3.859589403183282*^9, 3.859591936272944*^9, 3.859592372289692*^9, 
   3.8629699183128223`*^9, 3.862971037987258*^9, 3.865254515267806*^9, 
   3.86529205409837*^9, 3.865293380504463*^9, 3.8652944318075037`*^9, 
   3.865294709559503*^9, 3.865295191437727*^9, 3.868400614465087*^9, 
   3.870021460084717*^9, 3.8701008026970797`*^9, 3.906487135719689*^9, 
   3.9064932562484426`*^9, 3.906534543759262*^9, 3.906536911767441*^9, 
   3.906561489824319*^9, 3.906830363211492*^9, 3.906830986177205*^9, 
   3.906832320334681*^9, 3.9068331853237047`*^9, 3.90683366971945*^9, 
   3.906869628629408*^9, 3.906870254608597*^9, 3.9068709338870277`*^9, 
   3.906871028133182*^9, 3.9068713737151833`*^9, 3.906871409899281*^9, 
   3.906873170321067*^9, 3.906900304092268*^9, 3.9069022974651327`*^9, 
   3.90690234398407*^9, 3.9069033045248833`*^9, 3.9069037270677013`*^9, 
   3.9069039594131536`*^9, 3.906904210639572*^9, 3.906904292668276*^9, 
   3.906904618811314*^9, 3.9069046788837137`*^9, 3.9069051047723093`*^9, 
   3.906905231109881*^9, 3.9069053910389357`*^9, 3.90690551329713*^9, 
   3.9069056490290747`*^9, 3.906905912466992*^9, 3.9069061854820213`*^9, 
   3.90690663171131*^9, 3.90690670750039*^9, 3.906907203168415*^9, 
   3.9069072809537773`*^9, 3.9069094980085*^9, 3.906910281828023*^9, 
   3.906910417896205*^9, 3.906968102245357*^9, 3.9069691402971497`*^9, 
   3.9069694058872557`*^9, 3.906970274698928*^9, 3.9069705064689693`*^9, 
   3.906974843511548*^9, 3.906977082679809*^9, 3.9079269078441143`*^9, 
   3.908623694408073*^9, 3.908629659912292*^9, {3.90862970696527*^9, 
   3.908629713692561*^9}, 3.9086298466903763`*^9, 3.9086308459069347`*^9, 
   3.908631019750059*^9, 3.945503218632415*^9, 3.945503470581753*^9, 
   3.945504439307164*^9, {3.94552905019805*^9, 3.945529076820524*^9}, 
   3.945529110439787*^9, 3.945529179394611*^9, 3.945529346612404*^9, 
   3.945605806212644*^9, 3.945607002178708*^9, 3.945607289160646*^9, 
   3.945686142446168*^9, 3.945954264990963*^9, 3.945954781736266*^9, 
   3.945956468953721*^9},
 CellLabel->
  "Out[2636]=",ExpressionUUID->"0d469a3c-f251-44c4-8cce-51ee252c3114"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "=", " ", "fstarsg1"}]], "Input",
 CellLabel->
  "In[2637]:=",ExpressionUUID->"90cbca63-54ce-482b-8f94-5b51905db857"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox["t", "s"]]}]], "Output",
 CellChangeTimes->{
  3.814647226488714*^9, 3.814649813414266*^9, 3.8146556413112307`*^9, 
   3.814656334335671*^9, 3.814663511748234*^9, 3.8146657607156343`*^9, 
   3.814723165811228*^9, 3.814723467215905*^9, 3.814723552382382*^9, 
   3.81472428377957*^9, 3.814740759479889*^9, 3.814746244601823*^9, 
   3.81474676584691*^9, 3.814747004386204*^9, 3.81474742754853*^9, 
   3.814748541889513*^9, 3.814749865883008*^9, 3.8147500474281197`*^9, 
   3.814751033722762*^9, 3.814808054078601*^9, 3.814813077290666*^9, 
   3.8148133726586742`*^9, 3.814815048849882*^9, 3.814819857985766*^9, 
   3.8169771699164877`*^9, 3.816985887564156*^9, 3.859213679234829*^9, 
   3.859217760269846*^9, 3.859217894729718*^9, 3.859217933491231*^9, 
   3.859218081544422*^9, 3.859218555439445*^9, 3.859243117987314*^9, 
   3.859245695667511*^9, 3.859411635964204*^9, 3.859589403196656*^9, 
   3.859591936301797*^9, 3.859592372317046*^9, 3.862969920082904*^9, 
   3.862971038016122*^9, 3.865254515288075*^9, 3.8652921960581627`*^9, 
   3.865293380512022*^9, 3.865294431833246*^9, 3.86529470957901*^9, 
   3.865295191457782*^9, 3.8684006144692698`*^9, 3.8700214600992947`*^9, 
   3.870100802716284*^9, 3.9064871416347733`*^9, 3.906493273514908*^9, 
   3.9065345437626657`*^9, 3.906536911771078*^9, 3.9065614924359694`*^9, 
   3.906830365525625*^9, 3.906830987681075*^9, 3.906832321752132*^9, 
   3.9068331872811947`*^9, 3.9068336714179363`*^9, 3.90686962865125*^9, 
   3.9068702546146393`*^9, 3.9068709368191347`*^9, 3.90687102815534*^9, 
   3.906871373722825*^9, 3.906871409924644*^9, 3.9068731703346767`*^9, 
   3.906900365393053*^9, 3.906900461499894*^9, 3.906902297474914*^9, 
   3.906902343998218*^9, 3.9069033045423326`*^9, 3.906903727076825*^9, 
   3.9069039594248238`*^9, 3.906904210654427*^9, 3.906904292686141*^9, 
   3.9069046188201237`*^9, 3.90690467889981*^9, 3.906905104789967*^9, 
   3.906905231123411*^9, 3.906905391047598*^9, 3.906905513305965*^9, 
   3.9069056490382338`*^9, 3.9069059124786367`*^9, 3.9069061854934807`*^9, 
   3.906906633648902*^9, 3.906906709151374*^9, 3.906907204852113*^9, 
   3.9069072809675617`*^9, 3.906909498017293*^9, 3.906910281843914*^9, 
   3.9069104179095163`*^9, 3.9069681784874487`*^9, 3.906969140314117*^9, 
   3.906969405902802*^9, 3.9069702747169733`*^9, 3.906970506479347*^9, 
   3.906974843528675*^9, 3.9069770826960287`*^9, 3.9079269078469877`*^9, 
   3.908623694411491*^9, 3.908629714983575*^9, 3.908629846705019*^9, 
   3.9086308459210043`*^9, 3.908631019765596*^9, 3.9455032186425867`*^9, 
   3.945503473076964*^9, 3.9455044393121157`*^9, {3.945529050200596*^9, 
   3.945529076823545*^9}, 3.945529110444148*^9, 3.94552917939808*^9, 
   3.945529346616744*^9, 3.9456058062160873`*^9, 3.945607002184595*^9, 
   3.9456072891671877`*^9, 3.945686142449224*^9, 3.945954552224523*^9, 
   3.94595478173993*^9, 3.9459564689601297`*^9},
 CellLabel->
  "Out[2637]=",ExpressionUUID->"01e62d28-4a6f-4b5a-8ce2-f7e0bee80b1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"probr1", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"cj1bar", "-", "0"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"cjmax", "-", "0"}], ")"}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814646930949836*^9, 3.814646946276463*^9}, {
  3.814647082369504*^9, 3.814647088765696*^9}, {3.814647208487818*^9, 
  3.8146472143374434`*^9}, {3.906870940722212*^9, 3.906870942670186*^9}},
 CellLabel->
  "In[2638]:=",ExpressionUUID->"50946df5-fc76-4a86-b4e2-7e000c449fd6"],

Cell[BoxData[
 FractionBox[
  RowBox[{"d", "-", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "t"}], "+", 
     SqrtBox[
      FractionBox["t", "s"]]}], 
    SqrtBox[
     FractionBox["t", "s"]]]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.81464723050393*^9, 3.814649815945784*^9, 3.81465564827536*^9, 
   3.814656336632221*^9, 3.814663515104732*^9, 3.814665763908525*^9, 
   3.814723170625637*^9, 3.8147234720821733`*^9, 3.814723555272017*^9, 
   3.814724285526786*^9, 3.814740761684476*^9, 3.814746246938755*^9, 
   3.814746769363377*^9, 3.814747006644375*^9, 3.814747322005384*^9, 
   3.814747429553143*^9, 3.814748543915751*^9, 3.81474986827489*^9, 
   3.8147500498865356`*^9, 3.814751036115939*^9, 3.814808057867255*^9, 
   3.8148130799701157`*^9, 3.814813374658379*^9, 3.814815061043531*^9, 
   3.814819860529217*^9, 3.81697717399781*^9, 3.816985889997711*^9, 
   3.859213682009963*^9, 3.8592177619371557`*^9, 3.859217894735929*^9, 
   3.8592179334986267`*^9, 3.85921808155289*^9, 3.8592185554462976`*^9, 
   3.859243120167403*^9, 3.859245695682124*^9, 3.8594116360020037`*^9, 
   3.859589403224977*^9, 3.859591936315392*^9, 3.8595923723315363`*^9, 
   3.862969943011615*^9, 3.8629710380283318`*^9, 3.865254515293281*^9, 
   3.865292197913382*^9, 3.865293380536437*^9, 3.8652944318412113`*^9, 
   3.865294709589717*^9, 3.86529519146701*^9, 3.868400614476513*^9, 
   3.8700214601040573`*^9, 3.870100802723147*^9, 3.9064871478935127`*^9, 
   3.906493302686595*^9, 3.906534543776285*^9, 3.906536911783587*^9, 
   3.9065614963618717`*^9, 3.906830367845777*^9, 3.906830989847084*^9, 
   3.906832323521613*^9, 3.9068331890531473`*^9, 3.9068336733686666`*^9, 
   3.906869628656981*^9, 3.906870254634194*^9, 3.906870945376513*^9, 
   3.906871028162668*^9, 3.906871373738052*^9, 3.906871409932847*^9, 
   3.906873170341283*^9, 3.9069003674721413`*^9, 3.906900464356933*^9, 
   3.906902297487199*^9, 3.906902344007779*^9, 3.906903304550354*^9, 
   3.9069037270901947`*^9, 3.906903959437593*^9, 3.90690421066298*^9, 
   3.90690429269454*^9, 3.9069046188361263`*^9, 3.9069046789084272`*^9, 
   3.906905104798579*^9, 3.906905231132248*^9, 3.906905391061585*^9, 
   3.9069055133192863`*^9, 3.90690564905192*^9, 3.906905912493202*^9, 
   3.906906185507661*^9, 3.9069066351970987`*^9, 3.9069067107495003`*^9, 
   3.90690720655166*^9, 3.9069072809953327`*^9, 3.906909498036531*^9, 
   3.906910281853121*^9, 3.9069104179185247`*^9, 3.906968181715137*^9, 
   3.906969140323279*^9, 3.9069694059121037`*^9, 3.9069702747264967`*^9, 
   3.9069705064973*^9, 3.906974843538765*^9, 3.9069770827191763`*^9, 
   3.907926907851523*^9, 3.908623694417034*^9, 3.908629716817417*^9, 
   3.9086298467098227`*^9, 3.9086308459263573`*^9, 3.908631019773192*^9, 
   3.945503218648286*^9, 3.9455034763875227`*^9, 3.9455044393195877`*^9, {
   3.945529050202936*^9, 3.945529076835712*^9}, 3.945529110449218*^9, 
   3.9455291794105062`*^9, 3.9455293466270103`*^9, 3.945605806230335*^9, 
   3.945607002198813*^9, 3.945607289180784*^9, 3.94568614246264*^9, 
   3.9459545547985897`*^9, 3.945954781743239*^9, 3.9459564689677143`*^9},
 CellLabel->
  "Out[2638]=",ExpressionUUID->"4f7bd700-0c5a-4106-af4e-8247d98f2659"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "probr1", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2639]:=",ExpressionUUID->"8a070f2b-1a9a-416d-b613-b8328c3c7195"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "d", "+", 
   SqrtBox[
    RowBox[{"s", " ", "t"}]]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.859243122101555*^9, 3.859245695702087*^9, 3.859411636039975*^9, 
   3.859589403241131*^9, 3.859591936342882*^9, 3.859592372359662*^9, 
   3.862969944898402*^9, 3.862971038053565*^9, 3.865254515311411*^9, 
   3.8652921996793633`*^9, 3.865293380558893*^9, 3.865294431867848*^9, 
   3.8652947096110477`*^9, 3.865295191488496*^9, 3.868400614492448*^9, 
   3.8700214601188993`*^9, 3.870100802744129*^9, 3.906487154662485*^9, 
   3.90649330609473*^9, 3.906534543783119*^9, 3.906536911790657*^9, 
   3.90656150214163*^9, 3.9068303710146713`*^9, 3.906830991441821*^9, 
   3.9068323259828653`*^9, 3.906833190785083*^9, 3.906833675248435*^9, 
   3.906869628681616*^9, 3.9068702546586437`*^9, 3.906870948482589*^9, 
   3.906871028187351*^9, 3.906871373745956*^9, 3.906871409958227*^9, 
   3.906873170354948*^9, 3.906900370475902*^9, 3.906900495357815*^9, 
   3.906902297499737*^9, 3.9069023440223827`*^9, 3.906903304567487*^9, 
   3.906903727098254*^9, 3.90690395945123*^9, 3.906904210680694*^9, 
   3.906904292715727*^9, 3.906904618844747*^9, 3.906904678927681*^9, 
   3.906905104815948*^9, 3.9069052311455307`*^9, 3.906905391070718*^9, 
   3.906905513328422*^9, 3.906905649061338*^9, 3.906905912508273*^9, 
   3.906906185517083*^9, 3.906906636864657*^9, 3.906906712822269*^9, 
   3.906907208784981*^9, 3.906907281008987*^9, 3.906909498045479*^9, 
   3.906910281869307*^9, 3.9069104179317503`*^9, 3.9069681860487843`*^9, 
   3.906969140340002*^9, 3.906969405927629*^9, 3.906970274744635*^9, 
   3.906970506507403*^9, 3.90697484355579*^9, 3.906977082735396*^9, 
   3.907926907863009*^9, 3.908623694432097*^9, 3.90862972294801*^9, 
   3.908629846725588*^9, 3.9086308459395123`*^9, 3.908631019787773*^9, 
   3.945503218658228*^9, 3.945503480747856*^9, 3.945504439322702*^9, {
   3.945529050214237*^9, 3.94552907683911*^9}, 3.9455291104560547`*^9, 
   3.945529179413883*^9, 3.94552934663348*^9, 3.945605806234022*^9, 
   3.945607002203434*^9, 3.94560728918458*^9, 3.945686142466148*^9, 
   3.945954557214201*^9, 3.9459547817567387`*^9, 3.945956468972156*^9},
 CellLabel->
  "Out[2639]=",ExpressionUUID->"27c9b5ca-4a16-4995-b1ed-9815fd45fe6f"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8146471154466057`*^9, 3.814647126119987*^9}, {
   3.8147497969857473`*^9, 3.8147498080383787`*^9}, 3.814750012992345*^9},
 CellLabel->
  "In[2640]:=",ExpressionUUID->"e9d912c5-a84e-481c-9168-3f25f1d0be7d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814750010677492*^9, 3.814750010680043*^9}},
 CellLabel->
  "In[2641]:=",ExpressionUUID->"10cce854-0299-4822-81f5-ce8f55fc97b0"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.9459546123513823`*^9, 3.945954613267527*^9}},
 CellLabel->
  "In[2642]:=",ExpressionUUID->"7601c023-4bba-46ed-bf3c-c545f8373da3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"UPsg1", " ", "=", " ", 
    RowBox[{
     RowBox[{"probr1", "*", "Node4P"}], "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "probr1"}], ")"}], "*", 
      RowBox[{"(", "Node1P", ")"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814646980104969*^9, 3.814646981255278*^9}, 
   3.814647028949313*^9, {3.906494408245467*^9, 3.906494409165852*^9}},
 CellLabel->
  "In[2643]:=",ExpressionUUID->"d7b444f5-9f4b-4648-9ba5-0758994976fe"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"d", "-", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], 
       SqrtBox[
        FractionBox["t", "s"]]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "-", 
      RowBox[{"s", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox["t", "s"]]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], 
       SqrtBox[
        FractionBox["t", "s"]]]}], ")"}]}], "cjmax"], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "+", "d"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"d", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox["t", "s"]]}], 
        SqrtBox[
         FractionBox["t", "s"]]]}], "cjmax"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.814647045399006*^9, 3.8146470924587812`*^9, 3.814647235884095*^9, 
   3.814649818446537*^9, 3.81465633985909*^9, 3.814663519349493*^9, 
   3.8146657673558273`*^9, 3.814723177819149*^9, 3.814723514564385*^9, 
   3.814723561555072*^9, 3.814724288019854*^9, 3.814740771623109*^9, 
   3.814746251311062*^9, 3.814746772891129*^9, 3.814747009552023*^9, 
   3.81474743164727*^9, 3.814748546438099*^9, 3.8147498817176*^9, 
   3.81475005507238*^9, 3.81475103855299*^9, 3.814808061847608*^9, 
   3.8148130829491796`*^9, 3.814813379135478*^9, 3.814815068480694*^9, 
   3.8148198645003977`*^9, 3.816985892840803*^9, 3.859213708870083*^9, 
   3.8592177642575207`*^9, 3.8592178947600803`*^9, 3.859217933524987*^9, 
   3.859218081578059*^9, 3.859218555476191*^9, 3.859243133941299*^9, 
   3.859245695733265*^9, 3.859411636088448*^9, 3.859589403277052*^9, 
   3.859591936378551*^9, 3.859592372400753*^9, 3.862969947109881*^9, 
   3.8629710380907803`*^9, 3.865254515326624*^9, 3.865292217574978*^9, 
   3.865293380586874*^9, 3.865294431905953*^9, 3.865294709639587*^9, 
   3.865295191515182*^9, 3.868400614502952*^9, 3.8700214601289167`*^9, 
   3.870100802769224*^9, 3.906487158285679*^9, 3.906494349483934*^9, 
   3.9065345438017473`*^9, 3.906536911805245*^9, 3.9065615058106327`*^9, 
   3.906830374910088*^9, 3.906830993295458*^9, 3.90683232775861*^9, 
   3.90683319256262*^9, 3.906833677114829*^9, 3.906869628692011*^9, 
   3.906870254683024*^9, 3.90687095149181*^9, 3.906871028214682*^9, 
   3.906871373771308*^9, 3.9068714099909554`*^9, 3.9068731703662167`*^9, 
   3.906900500835712*^9, 3.9069022975157127`*^9, 3.9069023440417967`*^9, 
   3.906903304591591*^9, 3.906903727118819*^9, 3.906903959468033*^9, 
   3.906904210700941*^9, 3.906904292738853*^9, 3.906904618864944*^9, 
   3.90690467894736*^9, 3.906905104829688*^9, 3.906905231157443*^9, 
   3.9069053910871887`*^9, 3.906905513346114*^9, 3.90690564907892*^9, 
   3.906905912528696*^9, 3.9069061855360403`*^9, 3.906906715218009*^9, 
   3.9069072108343163`*^9, 3.906907281041603*^9, 3.906909498066185*^9, 
   3.906910281891591*^9, 3.906910417944096*^9, 3.906968240254538*^9, 
   3.9069691403631563`*^9, 3.906969405948131*^9, 3.906970274767515*^9, 
   3.906970506529029*^9, 3.906974843576836*^9, 3.906977082775237*^9, 
   3.907926907880547*^9, 3.908623694439289*^9, 3.908629745996962*^9, 
   3.908629846734*^9, 3.908630845959292*^9, 3.908631019807292*^9, 
   3.945503218673914*^9, 3.945503485191977*^9, 3.94550443933498*^9, {
   3.945529050220392*^9, 3.9455290768541193`*^9}, 3.945529110470419*^9, 
   3.945529179429245*^9, 3.945529346650057*^9, 3.9456058062505093`*^9, 
   3.945607002230279*^9, 3.945607289201511*^9, 3.945686142481401*^9, 
   3.9459547817644463`*^9, 3.945956468990409*^9},
 CellLabel->
  "Out[2643]=",ExpressionUUID->"c2fc8695-f616-416c-bd7e-0e2f5dd68601"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"UPsg1", " ", "=", 
   RowBox[{"Simplify", "[", "UPsg1", "]"}]}]}]], "Input",
 CellChangeTimes->{3.862969957293128*^9},
 NumberMarks->False,
 CellLabel->
  "In[2644]:=",ExpressionUUID->"8b105d6b-af63-4753-899b-d2c2bc6dfe8f"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "-", 
   RowBox[{"a", " ", "cjmax"}], "-", 
   SuperscriptBox["d", "2"], "-", 
   RowBox[{"3", " ", "s", " ", "t"}], "+", 
   RowBox[{"3", " ", 
    SqrtBox[
     RowBox[{"s", " ", "t"}]]}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"s", " ", "t"}], ")"}], 
    RowBox[{"3", "/", "2"}]], "+", 
   RowBox[{"d", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "cjmax", "+", 
      RowBox[{"s", " ", "t"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        RowBox[{"s", " ", "t"}]]}]}], ")"}]}]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.859243139099433*^9, 3.859245695760666*^9, 3.85941163612925*^9, 
   3.8595894033138514`*^9, 3.8595919364078703`*^9, 3.8595923724311132`*^9, 
   3.8629699507565813`*^9, 3.86297103812891*^9, 3.865254515365938*^9, 
   3.865292221277535*^9, 3.865293380617176*^9, 3.86529443193897*^9, 
   3.865294709671013*^9, 3.865295191547056*^9, 3.868400614529388*^9, 
   3.8700214601550426`*^9, 3.870100802800746*^9, 3.906487162567334*^9, 
   3.906494356373108*^9, 3.906534543826109*^9, 3.906536911825478*^9, 
   3.906561510587473*^9, 3.906830378028167*^9, 3.906830995570929*^9, 
   3.906832329575612*^9, 3.906833195568475*^9, 3.906833678685493*^9, 
   3.9068696287289543`*^9, 3.90687025472194*^9, 3.9068709542639313`*^9, 
   3.906871028240144*^9, 3.906871373803954*^9, 3.906871410021529*^9, 
   3.906873170397978*^9, 3.906900503575396*^9, 3.906902297539171*^9, 
   3.906902344065544*^9, 3.906903304615197*^9, 3.906903727142758*^9, 
   3.9069039594921503`*^9, 3.906904210725033*^9, 3.906904292763093*^9, 
   3.906904618887517*^9, 3.9069046789713373`*^9, 3.906905104854539*^9, 
   3.906905231181839*^9, 3.906905391111994*^9, 3.9069055133717833`*^9, 
   3.9069056491045*^9, 3.906905912554756*^9, 3.906906185561472*^9, 
   3.906906717735539*^9, 3.9069072126236153`*^9, 3.906907281069903*^9, 
   3.906909498091281*^9, 3.906910281916337*^9, 3.9069104179689093`*^9, 
   3.9069682438031187`*^9, 3.906969140380521*^9, 3.906969405972933*^9, 
   3.90697027479275*^9, 3.906970506556827*^9, 3.9069748436029873`*^9, 
   3.906977082808236*^9, 3.9079269078983917`*^9, 3.90862369446093*^9, 
   3.9086297476467123`*^9, 3.908629846755221*^9, 3.908630845980441*^9, 
   3.908631019828206*^9, 3.9455032186896152`*^9, 3.9455034879607887`*^9, 
   3.94550443935124*^9, {3.945529050237028*^9, 3.945529076870804*^9}, 
   3.9455291104865007`*^9, 3.945529179446207*^9, 3.945529346667469*^9, 
   3.945605806268038*^9, 3.945607002249804*^9, 3.945607289219103*^9, 
   3.945686142498693*^9, 3.945954781781736*^9, 3.945956469008799*^9},
 CellLabel->
  "Out[2644]=",ExpressionUUID->"1d7f9584-c094-4689-a6b5-3f1bec00d3da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "d"], "UPsg1"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.906533734158142*^9, 3.906533735292173*^9}, 
   3.906533782648305*^9},
 CellLabel->
  "In[2645]:=",ExpressionUUID->"5e7516d9-f87b-4451-97a2-3664e0362628"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "+", "cjmax", "-", 
   RowBox[{"2", " ", "d"}], "+", 
   RowBox[{"s", " ", "t"}], "-", 
   RowBox[{"3", " ", 
    SqrtBox[
     RowBox[{"s", " ", "t"}]]}]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.906533784483451*^9, 3.906534543830203*^9, 3.9065369118297157`*^9, 
   3.906561514222931*^9, 3.906830381521456*^9, 3.906830997155476*^9, 
   3.906832331451778*^9, 3.906833197853148*^9, 3.906833680350728*^9, 
   3.9068696287345667`*^9, 3.9068702547292433`*^9, 3.906870957318849*^9, 
   3.906871028247109*^9, 3.9068713738121967`*^9, 3.906871410029785*^9, 
   3.9068731704143887`*^9, 3.906900512939673*^9, 3.906902297547089*^9, 
   3.906902344074938*^9, 3.90690330462337*^9, 3.906903727150961*^9, 
   3.906903959500543*^9, 3.90690421073345*^9, 3.9069042927736187`*^9, 
   3.9069046188964663`*^9, 3.9069046789802933`*^9, 3.9069051048751297`*^9, 
   3.9069052311908216`*^9, 3.9069053911208*^9, 3.906905513380916*^9, 
   3.906905649113615*^9, 3.906905912564411*^9, 3.906906185570878*^9, 
   3.906906719692383*^9, 3.9069072148515797`*^9, 3.906907281100319*^9, 
   3.906909498100276*^9, 3.906910281925502*^9, 3.906910417978299*^9, 
   3.906968253354196*^9, 3.9069691403897133`*^9, 3.906969405982476*^9, 
   3.906970274805035*^9, 3.906970506566724*^9, 3.906974843615325*^9, 
   3.9069770828249693`*^9, 3.907926907902664*^9, 3.908623694466731*^9, 
   3.908629749061639*^9, 3.9086298467698517`*^9, 3.908630845985737*^9, 
   3.908631019833706*^9, 3.945503218692212*^9, 3.9455034915067377`*^9, 
   3.945504439354055*^9, {3.945529050240254*^9, 3.945529076873706*^9}, 
   3.945529110489746*^9, 3.945529179449768*^9, 3.945529346674181*^9, 
   3.945605806271489*^9, 3.9456070022535353`*^9, 3.945607289225297*^9, 
   3.945686142504979*^9, 3.945954804773713*^9, 3.945956469013283*^9},
 CellLabel->
  "Out[2645]=",ExpressionUUID->"0dc96c29-50b8-4d14-93b5-c039a1e57da5"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.86296995989781*^9, 3.862969961033935*^9}},
 CellLabel->
  "In[2646]:=",ExpressionUUID->"aa501022-c467-4505-b8c6-09a87f5db740"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "d"], "UPsg1"}], " ", "\[Equal]", " ", "0"}],
    ",", " ", "d"}], "]"}]], "Input",
 CellChangeTimes->{{3.814647255152319*^9, 3.8146472834000893`*^9}, {
  3.8629699668789387`*^9, 3.862969969289227*^9}, {3.862970006667391*^9, 
  3.862970016541647*^9}, {3.8652922676982317`*^9, 3.8652922682909*^9}, {
  3.906900520844542*^9, 3.906900522602528*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2647]:=",ExpressionUUID->"2578e549-6745-4065-9422-3bf3510927ad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"d", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}], "-", 
            RowBox[{"3", " ", 
              SqrtBox[
               RowBox[{"s", " ", "t"}]]}]}], ")"}]}], 
      RowBox[{
        RowBox[{"s", "<", 
          FractionBox["1", "t"]}], "&&", 
        RowBox[{"beta", ">", 
          RowBox[{"-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], 
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"s", " ", "t"}]}]]}]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8146472872815523`*^9, 3.8146498233543587`*^9, 3.814656343644767*^9, 
   3.814663552564226*^9, 3.8146657767352858`*^9, 3.8147231886532087`*^9, 
   3.8147235706361637`*^9, 3.814724298365631*^9, 3.8147407823005037`*^9, 
   3.814746258768311*^9, 3.814746779943225*^9, 3.8147470241373243`*^9, 
   3.814747437096979*^9, 3.814748551299685*^9, 3.814749887692109*^9, 
   3.8147500607743063`*^9, 3.814751043950123*^9, 3.81480807452039*^9, 
   3.814813089908572*^9, 3.814813385511793*^9, 3.814815076205765*^9, 
   3.8148198747553253`*^9, 3.816985901642549*^9, 3.859213722176825*^9, 
   3.859217768968956*^9, 3.8592178947870903`*^9, 3.859217933547639*^9, 
   3.8592180816055927`*^9, 3.8592185555031147`*^9, 3.859243599367351*^9, 
   3.859245695793387*^9, 3.859411636180731*^9, 3.859589403359048*^9, 
   3.859591936450966*^9, 3.8595923724775133`*^9, {3.8629699650569963`*^9, 
   3.862969971516717*^9}, 3.862970018290279*^9, 3.862971038160081*^9, 
   3.8652545154649153`*^9, {3.865292254729561*^9, 3.865292269527145*^9}, 
   3.865293380641754*^9, 3.865294431972809*^9, 3.865294709694779*^9, 
   3.8652951915735397`*^9, 3.868400614554549*^9, 3.8700214601738043`*^9, 
   3.870100802823227*^9, 3.906494359371037*^9, 3.90653454384515*^9, 
   3.906536911842112*^9, 3.9065615195096483`*^9, 3.906830385752754*^9, 
   3.906831000737355*^9, 3.906831156203072*^9, 3.906832333534113*^9, 
   3.9068331997957706`*^9, 3.906833682397621*^9, 3.906869628769682*^9, 
   3.906870254790739*^9, 3.906870961751789*^9, 3.9068710283019037`*^9, 
   3.906871373864779*^9, 3.9068714100906897`*^9, 3.9068731704593554`*^9, {
   3.9069005161693497`*^9, 3.906900523532948*^9}, 3.906902297581609*^9, 
   3.906902344110673*^9, 3.906903304662539*^9, 3.90690372718517*^9, 
   3.906903959535268*^9, 3.906904210770288*^9, 3.906904292813754*^9, 
   3.9069046189350348`*^9, 3.9069046790180883`*^9, 3.906905104907283*^9, 
   3.906905231226349*^9, 3.90690539115606*^9, 3.9069055134172*^9, 
   3.9069056491498423`*^9, 3.906905912601215*^9, 3.906906185607891*^9, 
   3.906906723162367*^9, 3.9069072175438023`*^9, 3.906907281148439*^9, 
   3.906909498140465*^9, 3.906910281963595*^9, 3.906910418016333*^9, 
   3.9069682586722383`*^9, 3.906969140428046*^9, 3.906969406019601*^9, 
   3.9069702748448973`*^9, 3.906970506606571*^9, 3.9069748436546383`*^9, 
   3.9069770828778048`*^9, 3.907926907934314*^9, 3.908623694501608*^9, 
   3.908629751089151*^9, 3.908629846797558*^9, 3.908630846025587*^9, 
   3.908631019860908*^9, 3.94550321871148*^9, 3.9455034958051662`*^9, 
   3.945504439377294*^9, {3.9455290502662497`*^9, 3.945529076901812*^9}, 
   3.945529110511639*^9, 3.9455291794761143`*^9, 3.9455293467002974`*^9, 
   3.945605806301476*^9, 3.945607002285523*^9, 3.9456072892547417`*^9, 
   3.945686142531097*^9, 3.945954817697816*^9, 3.9459564690400343`*^9},
 CellLabel->
  "Out[2647]=",ExpressionUUID->"a9ff8887-81dc-4a68-b124-8e814103bc51"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg1", " ", "=", " ", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "cjmax", "+", 
     RowBox[{"s", " ", "t"}], "-", 
     RowBox[{"3", " ", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.814647250678692*^9, 3.814647251884707*^9}, {
   3.814647313867798*^9, 3.8146473277653723`*^9}, 3.862970026108198*^9, 
   3.906561526623206*^9, 3.906900542334094*^9},
 CellLabel->
  "In[2648]:=",ExpressionUUID->"b698264c-f7ae-4f17-a946-8021784a1930"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "cjmax", "+", 
    RowBox[{"s", " ", "t"}], "-", 
    RowBox[{"3", " ", 
     SqrtBox[
      RowBox[{"s", " ", "t"}]]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.814647330218816*^9, 3.8146498255755663`*^9, 3.81465634661236*^9, 
   3.814663554872631*^9, 3.8146657797577477`*^9, 3.814723191271028*^9, 
   3.8147235728037043`*^9, 3.8147243003742237`*^9, 3.8147407843333*^9, 
   3.8147462605713797`*^9, 3.814746781853994*^9, 3.8147470264566507`*^9, 
   3.814747438813387*^9, 3.814748553203026*^9, 3.81474989009932*^9, 
   3.81475006301611*^9, 3.81475104603605*^9, 3.8148080786641607`*^9, 
   3.8148130919356117`*^9, 3.81481338831602*^9, 3.814815079439204*^9, 
   3.814819877325293*^9, 3.816985903940278*^9, 3.859213730155414*^9, 
   3.859217770622408*^9, 3.8592178947933292`*^9, 3.859217933554051*^9, 
   3.859218081612184*^9, 3.859218555510058*^9, 3.8592436444934464`*^9, 
   3.859245695813815*^9, 3.859411636191942*^9, 3.859589403387257*^9, 
   3.859591936465848*^9, 3.8595923724917717`*^9, 3.862970027689582*^9, 
   3.862971038181643*^9, 3.86525451547894*^9, 3.8652922808915*^9, 
   3.8652933806517143`*^9, 3.865294431982078*^9, 3.865294709718419*^9, 
   3.865295191581729*^9, 3.8684006145728493`*^9, 3.870021460178698*^9, 
   3.870100802832049*^9, 3.9065345438590097`*^9, 3.906536911853299*^9, 
   3.9065615276862164`*^9, 3.906832339157352*^9, 3.906833202606182*^9, 
   3.9068336985043917`*^9, 3.906833834572486*^9, 3.906869628775754*^9, 
   3.906870254797986*^9, 3.90687097326318*^9, 3.906871036300415*^9, 
   3.906871373874133*^9, 3.906871410099723*^9, 3.906873170467022*^9, 
   3.906900543806329*^9, 3.9069022975915413`*^9, 3.906902344119094*^9, 
   3.906903304671191*^9, 3.9069037271937227`*^9, 3.906903959544256*^9, 
   3.9069042107797527`*^9, 3.906904292823945*^9, 3.906904618943972*^9, 
   3.9069046790272512`*^9, 3.906905104916668*^9, 3.9069052312357817`*^9, 
   3.906905391165483*^9, 3.9069055134270773`*^9, 3.906905649160029*^9, 
   3.906905912611698*^9, 3.9069061856179028`*^9, 3.906906725336458*^9, 
   3.906907219471408*^9, 3.9069072811778183`*^9, 3.906909498155908*^9, 
   3.906910281973507*^9, 3.9069104180258303`*^9, 3.9069691404375753`*^9, 
   3.906969406029738*^9, 3.9069702748549623`*^9, 3.9069705066172323`*^9, 
   3.906974843665248*^9, 3.90697708290178*^9, 3.9079269079380217`*^9, 
   3.908623694506184*^9, {3.908629833862329*^9, 3.908629846802661*^9}, 
   3.90863084603207*^9, 3.9086310198667297`*^9, 3.945503218715856*^9, 
   3.9455035040157967`*^9, 3.945504439380863*^9, {3.9455290502698812`*^9, 
   3.9455290769053593`*^9}, 3.945529110515376*^9, 3.945529179479892*^9, 
   3.9455293467043743`*^9, 3.945605806305646*^9, 3.9456070022894373`*^9, 
   3.945607289258731*^9, 3.9456861425348988`*^9, 3.945954903401144*^9, 
   3.9459564690450163`*^9},
 CellLabel->
  "Out[2648]=",ExpressionUUID->"81d9d64c-8e46-4260-835e-f2a327c1e7cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"d", "=", "dstarsg1"}], "\[IndentingNewLine]", 
   "probr1"}]}]], "Input",
 CellChangeTimes->{{3.814749984256934*^9, 3.814749995471662*^9}, {
  3.814750066462152*^9, 3.814750097705091*^9}},
 CellLabel->
  "In[2649]:=",ExpressionUUID->"60db8c4c-67ca-48f5-a3c2-b360d422d61f"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "cjmax", "+", 
    RowBox[{"s", " ", "t"}], "-", 
    RowBox[{"3", " ", 
     SqrtBox[
      RowBox[{"s", " ", "t"}]]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.8147499981693287`*^9, 3.814750070071855*^9, 3.814750101239357*^9, 
   3.814751048788046*^9, 3.814808082727016*^9, 3.8148130941508017`*^9, 
   3.814813391117247*^9, 3.8148150823427677`*^9, 3.814819881455258*^9, 
   3.816985906357813*^9, 3.859213734585498*^9, 3.8592177721391907`*^9, 
   3.859217894812937*^9, 3.859217933568434*^9, 3.8592180816326923`*^9, 
   3.859218555516485*^9, 3.8592436459495993`*^9, 3.859245695826243*^9, 
   3.8594116362283154`*^9, 3.859589403401018*^9, 3.859591936493184*^9, 
   3.859592372521117*^9, 3.862970031010765*^9, 3.862971038207066*^9, 
   3.8652545154960012`*^9, 3.865292553667238*^9, 3.8652933806724854`*^9, 
   3.865294432008057*^9, 3.865294709726533*^9, 3.865295191604665*^9, 
   3.8684006145781603`*^9, 3.870021460195829*^9, 3.870100802851508*^9, 
   3.906534543862645*^9, 3.9065369118599167`*^9, 3.9065615326862297`*^9, 
   3.9068311813088408`*^9, 3.9068333220115128`*^9, 3.906833835781289*^9, 
   3.906869647154707*^9, 3.906870254817952*^9, 3.9068709753620443`*^9, 
   3.9068710363352747`*^9, 3.9068713738898983`*^9, 3.906871410125256*^9, 
   3.9068731704806223`*^9, 3.906900557784129*^9, 3.906902297604477*^9, 
   3.906902344133556*^9, 3.9069033046898413`*^9, 3.9069037272068863`*^9, 
   3.906903959557973*^9, 3.906904210794627*^9, 3.9069042928392057`*^9, 
   3.906904618960607*^9, 3.9069046790436487`*^9, 3.906905104934659*^9, 
   3.9069052312499847`*^9, 3.9069053911793823`*^9, 3.906905513440638*^9, 
   3.906905649174181*^9, 3.906905912626306*^9, 3.906906185632597*^9, 
   3.906906727404603*^9, 3.906907221518566*^9, 3.90690728119203*^9, 
   3.9069094981805*^9, 3.906910281989637*^9, 3.906910418039262*^9, 
   3.906969192247013*^9, 3.9069694060455647`*^9, 3.9069702748736277`*^9, 
   3.906970506636182*^9, 3.906974843682436*^9, 3.906977082918185*^9, 
   3.907926907949575*^9, 3.9086236945098248`*^9, 3.908629798756119*^9, {
   3.908629835784964*^9, 3.908629846813308*^9}, 3.9086308460467377`*^9, 
   3.908631019881372*^9, 3.945503218725562*^9, 3.945503506304731*^9, 
   3.9455044393882093`*^9, {3.9455290502805977`*^9, 3.94552907691826*^9}, 
   3.945529110521353*^9, 3.9455291794903517`*^9, 3.945529346714445*^9, 
   3.945605806317841*^9, 3.94560700230372*^9, 3.945607289272149*^9, 
   3.9456861425447893`*^9, 3.945954910688846*^9, 3.945956469052458*^9},
 CellLabel->
  "Out[2649]=",ExpressionUUID->"cc0c5bbe-d5a2-48df-8fd2-194849957539"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "t"}], "+", 
      SqrtBox[
       FractionBox["t", "s"]]}], 
     SqrtBox[
      FractionBox["t", "s"]]]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "cjmax", "+", 
      RowBox[{"s", " ", "t"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        RowBox[{"s", " ", "t"}]]}]}], ")"}]}]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.8147499981693287`*^9, 3.814750070071855*^9, 3.814750101239357*^9, 
   3.814751048788046*^9, 3.814808082727016*^9, 3.8148130941508017`*^9, 
   3.814813391117247*^9, 3.8148150823427677`*^9, 3.814819881455258*^9, 
   3.816985906357813*^9, 3.859213734585498*^9, 3.8592177721391907`*^9, 
   3.859217894812937*^9, 3.859217933568434*^9, 3.8592180816326923`*^9, 
   3.859218555516485*^9, 3.8592436459495993`*^9, 3.859245695826243*^9, 
   3.8594116362283154`*^9, 3.859589403401018*^9, 3.859591936493184*^9, 
   3.859592372521117*^9, 3.862970031010765*^9, 3.862971038207066*^9, 
   3.8652545154960012`*^9, 3.865292553667238*^9, 3.8652933806724854`*^9, 
   3.865294432008057*^9, 3.865294709726533*^9, 3.865295191604665*^9, 
   3.8684006145781603`*^9, 3.870021460195829*^9, 3.870100802851508*^9, 
   3.906534543862645*^9, 3.9065369118599167`*^9, 3.9065615326862297`*^9, 
   3.9068311813088408`*^9, 3.9068333220115128`*^9, 3.906833835781289*^9, 
   3.906869647154707*^9, 3.906870254817952*^9, 3.9068709753620443`*^9, 
   3.9068710363352747`*^9, 3.9068713738898983`*^9, 3.906871410125256*^9, 
   3.9068731704806223`*^9, 3.906900557784129*^9, 3.906902297604477*^9, 
   3.906902344133556*^9, 3.9069033046898413`*^9, 3.9069037272068863`*^9, 
   3.906903959557973*^9, 3.906904210794627*^9, 3.9069042928392057`*^9, 
   3.906904618960607*^9, 3.9069046790436487`*^9, 3.906905104934659*^9, 
   3.9069052312499847`*^9, 3.9069053911793823`*^9, 3.906905513440638*^9, 
   3.906905649174181*^9, 3.906905912626306*^9, 3.906906185632597*^9, 
   3.906906727404603*^9, 3.906907221518566*^9, 3.90690728119203*^9, 
   3.9069094981805*^9, 3.906910281989637*^9, 3.906910418039262*^9, 
   3.906969192247013*^9, 3.9069694060455647`*^9, 3.9069702748736277`*^9, 
   3.906970506636182*^9, 3.906974843682436*^9, 3.906977082918185*^9, 
   3.907926907949575*^9, 3.9086236945098248`*^9, 3.908629798756119*^9, {
   3.908629835784964*^9, 3.908629846813308*^9}, 3.9086308460467377`*^9, 
   3.908631019881372*^9, 3.945503218725562*^9, 3.945503506304731*^9, 
   3.9455044393882093`*^9, {3.9455290502805977`*^9, 3.94552907691826*^9}, 
   3.945529110521353*^9, 3.9455291794903517`*^9, 3.945529346714445*^9, 
   3.945605806317841*^9, 3.94560700230372*^9, 3.945607289272149*^9, 
   3.9456861425447893`*^9, 3.945954910688846*^9, 3.945956469054495*^9},
 CellLabel->
  "Out[2650]=",ExpressionUUID->"8979c31a-bfd6-4fa2-bcdb-d930ce4e0184"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"Dstarsg1", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg1", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg1", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg1"}],
        "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Probr1", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"probr1", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"probr1", " ", "<", " ", "0"}], ",", "0", ",", "probr1"}], 
       "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8147422619796658`*^9, 3.814742307120139*^9}, {
  3.814821473235589*^9, 3.8148214963007174`*^9}, {3.9069692235781527`*^9, 
  3.906969226545927*^9}},
 CellLabel->
  "In[2651]:=",ExpressionUUID->"209a4fa8-5ff9-4665-b8eb-9669e6c41658"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", "cjmax", "+", 
       RowBox[{"s", " ", "t"}], "-", 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.9069046189758263`*^9, 3.906904679059186*^9, 3.9069051049615393`*^9, 
   3.906905231265773*^9, 3.906905391195999*^9, 3.9069055134573174`*^9, 
   3.906905649193672*^9, 3.906905912645944*^9, 3.90690618565001*^9, 
   3.90690672965539*^9, 3.90690722391066*^9, 3.906907281231113*^9, 
   3.906909498203176*^9, 3.9069102820065193`*^9, 3.906910418056162*^9, 
   3.906969229840515*^9, 3.906969406062415*^9, 3.9069702748907957`*^9, 
   3.906970506655806*^9, 3.906974843701056*^9, 3.906977082949442*^9, 
   3.907926907954208*^9, 3.9086236945286818`*^9, 3.908629804729954*^9, 
   3.908629846820487*^9, 3.9086308460552588`*^9, 3.908631019892008*^9, 
   3.945503218731675*^9, 3.945503515602255*^9, 3.945504439394418*^9, {
   3.945529050284524*^9, 3.94552907692238*^9}, 3.945529110527678*^9, 
   3.945529179494535*^9, 3.945529346718635*^9, 3.9456058063225727`*^9, 
   3.9456070023090467`*^9, 3.945607289277396*^9, 3.945686142549264*^9, 
   3.9459549158613586`*^9, 3.945956469059821*^9},
 CellLabel->
  "Out[2651]=",ExpressionUUID->"d8bb1191-b159-4050-b466-183375263fb7"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox["t", "s"]]}], 
        SqrtBox[
         FractionBox["t", "s"]]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]]}]}], ")"}]}]}], "cjmax"], ">", "1"}], ",",
    "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"probr1", "<", "0"}], ",", "0", ",", "probr1"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.9069046189758263`*^9, 3.906904679059186*^9, 3.9069051049615393`*^9, 
   3.906905231265773*^9, 3.906905391195999*^9, 3.9069055134573174`*^9, 
   3.906905649193672*^9, 3.906905912645944*^9, 3.90690618565001*^9, 
   3.90690672965539*^9, 3.90690722391066*^9, 3.906907281231113*^9, 
   3.906909498203176*^9, 3.9069102820065193`*^9, 3.906910418056162*^9, 
   3.906969229840515*^9, 3.906969406062415*^9, 3.9069702748907957`*^9, 
   3.906970506655806*^9, 3.906974843701056*^9, 3.906977082949442*^9, 
   3.907926907954208*^9, 3.9086236945286818`*^9, 3.908629804729954*^9, 
   3.908629846820487*^9, 3.9086308460552588`*^9, 3.908631019892008*^9, 
   3.945503218731675*^9, 3.945503515602255*^9, 3.945504439394418*^9, {
   3.945529050284524*^9, 3.94552907692238*^9}, 3.945529110527678*^9, 
   3.945529179494535*^9, 3.945529346718635*^9, 3.9456058063225727`*^9, 
   3.9456070023090467`*^9, 3.945607289277396*^9, 3.945686142549264*^9, 
   3.9459549158613586`*^9, 3.945956469061874*^9},
 CellLabel->
  "Out[2652]=",ExpressionUUID->"1a5a8a7d-5d69-494d-9de4-00cac72782fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"postprobr1", " ", "=", " ", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", "Dstarsg1", "+", 
    SqrtBox[
     RowBox[{"s", " ", "t"}]]}], "cjmax"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PostProbr1", " ", "=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"postprobr1", " ", ">", " ", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr1", " ", "<", " ", "0"}], ",", "0", ",", 
       "postprobr1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.9069043041745787`*^9, 3.906904395526189*^9}, {
  3.906906811572649*^9, 3.9069068118758383`*^9}, {3.906969242577791*^9, 
  3.90696927388798*^9}, {3.906969320237548*^9, 3.9069693203972893`*^9}},
 CellLabel->
  "In[2653]:=",ExpressionUUID->"794a7df3-20b7-45a2-8622-20f015b171ce"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SqrtBox[
    RowBox[{"s", " ", "t"}]], "+", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
    "]"}]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.8147412000575542`*^9, 3.814742321605846*^9, 3.8147462650956182`*^9, 
   3.814746805236734*^9, 3.814747031763567*^9, 3.8147474443099117`*^9, 
   3.8147485581387033`*^9, 3.814749896179657*^9, 3.814750129401619*^9, 
   3.814751059259639*^9, 3.814808092454268*^9, 3.8148131028979797`*^9, 
   3.8148134094888153`*^9, 3.814815096521234*^9, 3.8148214976726294`*^9, 
   3.816985929352783*^9, 3.8592137728571253`*^9, 3.859217785482314*^9, 
   3.8592178948918333`*^9, 3.859217933639266*^9, 3.8592180817334347`*^9, 
   3.859218555602672*^9, 3.8592436965589457`*^9, 3.859245695953335*^9, 
   3.859411636442803*^9, 3.859589403569566*^9, 3.859591936644176*^9, 
   3.8595923726880083`*^9, 3.8629700679921637`*^9, 3.862971038381834*^9, 
   3.865254515626561*^9, 3.8652926936270237`*^9, 3.865293380829507*^9, 
   3.865294432208246*^9, 3.865294709883684*^9, 3.865295191756517*^9, 
   3.868400614701593*^9, 3.870021460316107*^9, 3.8701008029937897`*^9, 
   3.906534543951375*^9, 3.906536911949288*^9, 3.906561568310182*^9, 
   3.906830442728406*^9, 3.906831200376173*^9, 3.906833337568364*^9, 
   3.906833844797598*^9, 3.906869647330904*^9, 3.9068702549816303`*^9, 
   3.9068709906524057`*^9, 3.906871036426928*^9, 3.90687137403428*^9, 
   3.906871410264834*^9, 3.906873170626668*^9, 3.906900695215987*^9, 
   3.906902297618948*^9, 3.906902344148353*^9, 3.906903304704159*^9, 
   3.9069037272261343`*^9, 3.9069039595738983`*^9, 3.906904210810223*^9, 
   3.9069044027009773`*^9, 3.9069046190110493`*^9, 3.90690467909476*^9, 
   3.90690510499055*^9, 3.906905231299526*^9, 3.906905391229232*^9, 
   3.9069055134913797`*^9, 3.906905649228589*^9, 3.9069059126814404`*^9, 
   3.906906185686776*^9, 3.906906813276544*^9, 3.9069072812749357`*^9, 
   3.906909498241378*^9, 3.906910282043646*^9, 3.9069104180901957`*^9, 
   3.90696925377862*^9, 3.906969406086163*^9, 3.9069702749166822`*^9, 
   3.9069705066820393`*^9, 3.906974843726735*^9, 3.906977082974283*^9, 
   3.907926907966919*^9, 3.9086236945348177`*^9, 3.9086298100450363`*^9, 
   3.908629846833146*^9, 3.908630846072276*^9, 3.9086310199094763`*^9, 
   3.9455032187421637`*^9, 3.9455035424146214`*^9, 3.9455044394027863`*^9, {
   3.945529050297598*^9, 3.945529076936174*^9}, 3.945529110534039*^9, 
   3.945529179505624*^9, 3.945529346731763*^9, 3.945605806338483*^9, 
   3.945607002324717*^9, 3.945607289291991*^9, 3.9456861425630703`*^9, 
   3.945954931881928*^9, 3.9459564690706387`*^9},
 CellLabel->
  "Out[2653]=",ExpressionUUID->"7cd95fd9-6d22-48bf-8613-46293611a34b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SqrtBox[
       RowBox[{"s", " ", "t"}]], "+", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", 
        ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
         "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], "]"}]}],
   "]"}]], "Output",
 CellChangeTimes->{
  3.8147412000575542`*^9, 3.814742321605846*^9, 3.8147462650956182`*^9, 
   3.814746805236734*^9, 3.814747031763567*^9, 3.8147474443099117`*^9, 
   3.8147485581387033`*^9, 3.814749896179657*^9, 3.814750129401619*^9, 
   3.814751059259639*^9, 3.814808092454268*^9, 3.8148131028979797`*^9, 
   3.8148134094888153`*^9, 3.814815096521234*^9, 3.8148214976726294`*^9, 
   3.816985929352783*^9, 3.8592137728571253`*^9, 3.859217785482314*^9, 
   3.8592178948918333`*^9, 3.859217933639266*^9, 3.8592180817334347`*^9, 
   3.859218555602672*^9, 3.8592436965589457`*^9, 3.859245695953335*^9, 
   3.859411636442803*^9, 3.859589403569566*^9, 3.859591936644176*^9, 
   3.8595923726880083`*^9, 3.8629700679921637`*^9, 3.862971038381834*^9, 
   3.865254515626561*^9, 3.8652926936270237`*^9, 3.865293380829507*^9, 
   3.865294432208246*^9, 3.865294709883684*^9, 3.865295191756517*^9, 
   3.868400614701593*^9, 3.870021460316107*^9, 3.8701008029937897`*^9, 
   3.906534543951375*^9, 3.906536911949288*^9, 3.906561568310182*^9, 
   3.906830442728406*^9, 3.906831200376173*^9, 3.906833337568364*^9, 
   3.906833844797598*^9, 3.906869647330904*^9, 3.9068702549816303`*^9, 
   3.9068709906524057`*^9, 3.906871036426928*^9, 3.90687137403428*^9, 
   3.906871410264834*^9, 3.906873170626668*^9, 3.906900695215987*^9, 
   3.906902297618948*^9, 3.906902344148353*^9, 3.906903304704159*^9, 
   3.9069037272261343`*^9, 3.9069039595738983`*^9, 3.906904210810223*^9, 
   3.9069044027009773`*^9, 3.9069046190110493`*^9, 3.90690467909476*^9, 
   3.90690510499055*^9, 3.906905231299526*^9, 3.906905391229232*^9, 
   3.9069055134913797`*^9, 3.906905649228589*^9, 3.9069059126814404`*^9, 
   3.906906185686776*^9, 3.906906813276544*^9, 3.9069072812749357`*^9, 
   3.906909498241378*^9, 3.906910282043646*^9, 3.9069104180901957`*^9, 
   3.90696925377862*^9, 3.906969406086163*^9, 3.9069702749166822`*^9, 
   3.9069705066820393`*^9, 3.906974843726735*^9, 3.906977082974283*^9, 
   3.907926907966919*^9, 3.9086236945348177`*^9, 3.9086298100450363`*^9, 
   3.908629846833146*^9, 3.908630846072276*^9, 3.9086310199094763`*^9, 
   3.9455032187421637`*^9, 3.9455035424146214`*^9, 3.9455044394027863`*^9, {
   3.945529050297598*^9, 3.945529076936174*^9}, 3.945529110534039*^9, 
   3.945529179505624*^9, 3.945529346731763*^9, 3.945605806338483*^9, 
   3.945607002324717*^9, 3.945607289291991*^9, 3.9456861425630703`*^9, 
   3.945954931881928*^9, 3.945956469072692*^9},
 CellLabel->
  "Out[2654]=",ExpressionUUID->"cc12994d-fafb-4703-8190-9ffd3a1ae042"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814749955263126*^9, 3.814749969184105*^9}},
 CellLabel->
  "In[2655]:=",ExpressionUUID->"2539e8a9-875c-4c6b-a212-f0876e38250d"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}]}]}]], "Input",
 CellChangeTimes->{{3.8147236850969687`*^9, 3.8147237067298603`*^9}, {
  3.8652927628420887`*^9, 3.865292763118002*^9}, {3.9069007172212152`*^9, 
  3.906900717643457*^9}},
 CellLabel->
  "In[2656]:=",ExpressionUUID->"3ce0f482-0d8f-4021-93c5-00d15a1c9cfb"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "**", "**", "**", "**", "**", "**", "**", "SUBGAME"}], " ", 
    
    RowBox[{
    "2", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
   "*****)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814723325240888*^9, 3.814723326989524*^9}, 
   3.8147233716599617`*^9},
 CellLabel->
  "In[2664]:=",ExpressionUUID->"0f2decd4-ce6f-4e98-a98d-e11b2c693a6c"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}]}]}]], "Input",
 CellChangeTimes->{{3.814647341551333*^9, 3.814647368915873*^9}, {
   3.81475019486456*^9, 3.814750196394095*^9}, 3.94568608493042*^9},
 CellLabel->
  "In[2665]:=",ExpressionUUID->"eede7c45-6d04-415a-a719-b79aa9169d4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PUSG2", " ", "=", " ", "Node5P"}]], "Input",
 CellChangeTimes->{{3.812420255927311*^9, 3.812420258906536*^9}},
 CellLabel->
  "In[2667]:=",ExpressionUUID->"7a39e68e-35d4-48db-9b55-9178b2a81eb9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], "-", 
  RowBox[{"f", " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{
  3.812420262703247*^9, 3.812426105229897*^9, 3.81242726405726*^9, 
   3.8124277019352503`*^9, 3.812754437367342*^9, 3.812754796928948*^9, 
   3.812793004560911*^9, 3.812795640270193*^9, 3.814566110596792*^9, 
   3.8145711329854393`*^9, 3.814572712165045*^9, 3.814572959626897*^9, 
   3.8145741237447453`*^9, {3.814577462610676*^9, 3.814577468198782*^9}, 
   3.814580266035633*^9, 3.814582740167755*^9, 3.814586053924988*^9, 
   3.814613371094976*^9, 3.814628108555211*^9, 3.814628277529995*^9, 
   3.814628595466804*^9, 3.814628680260511*^9, 3.814647373104044*^9, 
   3.814649830722686*^9, 3.8146563521762733`*^9, 3.81466356401855*^9, 
   3.814665808687603*^9, 3.814723674327902*^9, 3.814723715796939*^9, 
   3.814724320009399*^9, 3.814741376519066*^9, 3.8147469489939423`*^9, 
   3.814747572825922*^9, 3.814748605780528*^9, 3.814750199966352*^9, 
   3.814751096133412*^9, 3.814808114361709*^9, 3.814813119482082*^9, 
   3.814815115902363*^9, 3.816978607453685*^9, 3.816985959925673*^9, 
   3.859214424498599*^9, 3.8592178011938868`*^9, 3.859217895085338*^9, 
   3.859217940653426*^9, 3.859218081960281*^9, 3.8592185558315353`*^9, 
   3.859243787170148*^9, 3.859245696308538*^9, 3.8594116368819017`*^9, 
   3.859589404014632*^9, 3.8595919370719757`*^9, 3.859592373179579*^9, 
   3.862970124490281*^9, 3.862971038778672*^9, 3.8652545161247463`*^9, 
   3.865292792977487*^9, 3.865293381086825*^9, 3.865294432588654*^9, 
   3.865294710100527*^9, 3.865295191965659*^9, 3.868400615161055*^9, 
   3.87002146067068*^9, 3.870100803192275*^9, 3.906534550443884*^9, 
   3.906534668919499*^9, 3.906536919415185*^9, 3.906561586594644*^9, 
   3.906833566303994*^9, {3.9068338538358393`*^9, 3.906833857323099*^9}, 
   3.906869663592929*^9, 3.906870270370495*^9, 3.906871052731933*^9, 
   3.906871374241219*^9, 3.906871410530671*^9, 3.906873170814349*^9, 
   3.9069007328911467`*^9, 3.906902297796941*^9, 3.906902344337571*^9, 
   3.9069037274141197`*^9, 3.906903959764681*^9, 3.906904210999864*^9, 
   3.906904619215233*^9, 3.906904679282123*^9, 3.906905140099578*^9, 
   3.906905231496036*^9, 3.906905391422298*^9, 3.9069055137026567`*^9, 
   3.9069056494354763`*^9, 3.906905912887804*^9, 3.906906185903144*^9, 
   3.906906839035902*^9, 3.9069072816359*^9, 3.9069094984503*^9, 
   3.906910282242443*^9, 3.906910418290618*^9, 3.906969406297634*^9, 
   3.906970275150092*^9, 3.906970506930805*^9, 3.906974843958353*^9, 
   3.906977083299616*^9, 3.907926908257099*^9, 3.9086236947018948`*^9, 
   3.9086298697459908`*^9, 3.908630846244645*^9, 3.90863102009053*^9, 
   3.945503218982692*^9, 3.9455035795520573`*^9, 3.945504439420662*^9, {
   3.945529050319826*^9, 3.9455290769549522`*^9}, 3.945529110547226*^9, 
   3.945529179523815*^9, 3.94552934675263*^9, 3.945605806365026*^9, 
   3.9456070023505096`*^9, 3.945607289319868*^9, 3.9456861425819798`*^9, 
   3.94595516848248*^9, 3.945956469093473*^9},
 CellLabel->
  "Out[2667]=",ExpressionUUID->"b3be8174-00cb-416f-aaa0-334f10f34777"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "f"], "PUSG2"}]], "Input",
 CellChangeTimes->{{3.812420286823155*^9, 3.8124202879476357`*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2668]:=",ExpressionUUID->"dc128c71-1879-4e01-83d3-3718af7901fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "s"}], "-", 
  FractionBox["f", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}], "2"]], "+", 
  FractionBox["1", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["f", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"f", "+", "t"}], ")"}], "2"]], "-", 
      FractionBox["1", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"], "-", 
  FractionBox[
   RowBox[{"k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{{3.8124202847317047`*^9, 3.8124202896117496`*^9}, 
   3.8124261088585777`*^9, 3.812427267362*^9, 3.8124277061133013`*^9, 
   3.8127544429668922`*^9, 3.812754799605564*^9, 3.812793007649502*^9, 
   3.812795644584717*^9, 3.814566113970937*^9, 3.814571135238886*^9, 
   3.814572714979795*^9, 3.8145729634009647`*^9, 3.814574125985553*^9, 
   3.8145774710744257`*^9, 3.8145802683724413`*^9, 3.8145827439033203`*^9, 
   3.814586061363353*^9, 3.814613374551958*^9, 3.8146281119548817`*^9, 
   3.81462827996554*^9, 3.81462860545919*^9, 3.814628682778829*^9, 
   3.814647379922842*^9, 3.8146498329654303`*^9, 3.814656354234603*^9, 
   3.814663569004922*^9, 3.8146658113673763`*^9, 3.814723717925241*^9, 
   3.814724322340126*^9, 3.814741378275194*^9, 3.8147469515249577`*^9, 
   3.814747575543858*^9, 3.814748608392412*^9, 3.814750202774159*^9, 
   3.8147510985788317`*^9, 3.814808116566441*^9, 3.8148131214243402`*^9, 
   3.814815118595305*^9, 3.816978610293441*^9, 3.8169859629907093`*^9, 
   3.859214427789317*^9, 3.859217802942563*^9, 3.859217895092102*^9, 
   3.8592179425739527`*^9, 3.859218081983405*^9, 3.8592185558531733`*^9, 
   3.859243791585194*^9, 3.859245696321671*^9, 3.859411636921133*^9, 
   3.85958940404342*^9, 3.859591937098526*^9, 3.859592373206793*^9, 
   3.862970129059754*^9, 3.8629710388056717`*^9, 3.865254516147874*^9, 
   3.8652927948100843`*^9, 3.865293381094945*^9, 3.86529443261942*^9, 
   3.86529471012228*^9, 3.865295191987574*^9, 3.8684006151772957`*^9, 
   3.87002146067553*^9, 3.8701008032143717`*^9, 3.906534554710998*^9, 
   3.906534668924183*^9, 3.906536922378263*^9, 3.906561588461113*^9, 
   3.906833567780765*^9, 3.906833858931323*^9, 3.906869665477509*^9, 
   3.9068702725838547`*^9, 3.9068710551712837`*^9, 3.906871374249318*^9, 
   3.906871410556592*^9, 3.906873170831934*^9, 3.906900735291264*^9, 
   3.906902297812291*^9, 3.90690234435183*^9, 3.90690372743091*^9, 
   3.9069039597791777`*^9, 3.906904211014861*^9, 3.906904619231591*^9, 
   3.9069046792991543`*^9, 3.9069051401091633`*^9, 3.906905231504915*^9, 
   3.906905391439349*^9, 3.906905513718013*^9, 3.9069056494494467`*^9, 
   3.906905912902746*^9, 3.906906185920435*^9, 3.906906841083667*^9, 
   3.906907281663939*^9, 3.906909498470385*^9, 3.906910282258801*^9, 
   3.9069104183038054`*^9, 3.906969406314611*^9, 3.906970275166684*^9, 
   3.9069705069489937`*^9, 3.906974843975203*^9, 3.906977083324164*^9, 
   3.9079269082604427`*^9, 3.9086236947057047`*^9, 3.90862987102013*^9, 
   3.908630846249915*^9, 3.9086310200963097`*^9, 3.945503218985053*^9, 
   3.945503579557466*^9, 3.9455044394235992`*^9, {3.945529050324106*^9, 
   3.9455290769576473`*^9}, 3.9455291105521593`*^9, 3.945529179528232*^9, 
   3.9455293467577877`*^9, 3.945605806379723*^9, 3.945607002353527*^9, 
   3.9456072893336687`*^9, 3.945686142585052*^9, 3.9459551684880753`*^9, 
   3.945956469103504*^9},
 CellLabel->
  "Out[2668]=",ExpressionUUID->"158fae70-6226-43e9-bf80-6147424699ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "f"], "PUSG2"}], "\[Equal]", "0"}], ",", "f",
    ",", "NonNegativeReals"}], "]"}]], "Input",
 CellChangeTimes->{{3.8124203001102333`*^9, 3.812420303199087*^9}, 
   3.812754450090847*^9, 3.814628618954908*^9, {3.8629701333573933`*^9, 
   3.862970135463249*^9}, 3.906561593411127*^9, {3.906833574997541*^9, 
   3.90683358882047*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2669]:=",ExpressionUUID->"bc92607b-087f-4aac-a50b-058242702c64"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
             RowBox[{"beta", " ", "t"}], "-", 
             RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], 
      RowBox[{
        RowBox[{"k", "<", 
          FractionBox["beta", "t"]}], "&&", 
        RowBox[{"s", "<", 
          FractionBox[
           RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], 
           RowBox[{"beta", " ", "t"}]]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.812420295571788*^9, 3.8124203059301033`*^9}, 
   3.8124261144486427`*^9, 3.8124272724815083`*^9, 3.8124277100610037`*^9, 
   3.812754453249868*^9, 3.81275480302957*^9, 3.812793011081408*^9, 
   3.8127956525250177`*^9, 3.8145661172449713`*^9, 3.814571138970481*^9, 
   3.814572717306037*^9, 3.8145729661494827`*^9, 3.814574128536018*^9, 
   3.814577474148818*^9, 3.8145802729605*^9, 3.814582747735815*^9, 
   3.814586065134142*^9, 3.814613377444866*^9, 3.814628116094305*^9, 
   3.814628283278462*^9, 3.814628624403783*^9, 3.814628685674474*^9, 
   3.81464738371377*^9, 3.814649836713517*^9, 3.814656356804317*^9, 
   3.8146635719955*^9, 3.8146658141233797`*^9, 3.8147237208429937`*^9, 
   3.8147243254036703`*^9, 3.814741380692658*^9, 3.814746953882166*^9, 
   3.814747580086422*^9, 3.814748611050123*^9, 3.8147502062493258`*^9, 
   3.8147511019070272`*^9, 3.814808119682522*^9, 3.8148131233842278`*^9, 
   3.8148151208473263`*^9, 3.816978613853807*^9, 3.8169859657433653`*^9, 
   3.859214429451223*^9, 3.8592178050401278`*^9, 3.85921789510098*^9, 
   3.859217944286229*^9, 3.859218081990926*^9, 3.8592185558611393`*^9, 
   3.859243793797827*^9, 3.859245696342499*^9, 3.859411636933112*^9, 
   3.859589404059381*^9, 3.8595919371126347`*^9, 3.859592373220852*^9, {
   3.862970130927657*^9, 3.862970136259178*^9}, 3.862971038834835*^9, 
   3.8652545161747437`*^9, 3.865292797593429*^9, 3.865293381121623*^9, 
   3.865294432651414*^9, 3.86529471013487*^9, 3.865295192008559*^9, 
   3.8684006152121277`*^9, 3.870021460700513*^9, 3.870100803234527*^9, 
   3.906534561666081*^9, 3.90653466894727*^9, 3.906536925563332*^9, 
   3.906561595793077*^9, {3.906833571407947*^9, 3.906833590093936*^9}, 
   3.906833862131299*^9, 3.906869667883376*^9, 3.906870275005569*^9, 
   3.90687105797745*^9, 3.906871374289398*^9, 3.906871410622328*^9, 
   3.906873170869186*^9, 3.9069007392497463`*^9, 3.906902297842469*^9, 
   3.906902344379252*^9, 3.9069037274603643`*^9, 3.906903959808015*^9, 
   3.906904211042523*^9, 3.9069046192593613`*^9, 3.9069046793271437`*^9, 
   3.906905140137257*^9, 3.906905231533527*^9, 3.9069053914676027`*^9, 
   3.9069055137479067`*^9, 3.906905649478245*^9, 3.906905912933331*^9, 
   3.9069061859495363`*^9, 3.9069068437490387`*^9, 3.9069072817094193`*^9, 
   3.906909498498928*^9, 3.906910282287258*^9, 3.9069104183341217`*^9, 
   3.9069694063427277`*^9, 3.906970275194913*^9, 3.906970506977914*^9, 
   3.906974844004562*^9, 3.906977083360018*^9, 3.9079269082807198`*^9, 
   3.9086236947278547`*^9, 3.908629872275749*^9, 3.908630846273608*^9, 
   3.908631020119585*^9, 3.945503219002212*^9, 3.9455035795761137`*^9, 
   3.945504439440113*^9, {3.945529050344308*^9, 3.9455290769744787`*^9}, 
   3.945529110569303*^9, 3.94552917954523*^9, 3.945529346774806*^9, 
   3.945605806399214*^9, 3.945607002371352*^9, 3.945607289351513*^9, 
   3.9456861426025248`*^9, 3.9459551685077047`*^9, 3.945956469124275*^9},
 CellLabel->
  "Out[2669]=",ExpressionUUID->"3bee8575-b479-4b3d-86c6-90220880669c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg2", " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   RowBox[{
    SqrtBox[
     FractionBox["1", 
      RowBox[{"beta", " ", "s"}]]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"beta", " ", "t"}], "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["t", "2"]}]}]]}]}]}]], "Input",
 CellChangeTimes->{{3.812419975500573*^9, 3.8124199755019693`*^9}, {
   3.812420356972698*^9, 3.81242037389968*^9}, 3.81462812594293*^9, 
   3.814628693349276*^9, 3.8147243402062283`*^9, 3.862970151652916*^9, 
   3.9065616017677097`*^9, 3.906869686178095*^9},
 CellLabel->
  "In[2670]:=",ExpressionUUID->"864892cb-6892-4d45-baf6-18193ce1f150"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.812420376700605*^9, 3.8124261197812757`*^9, 3.812427276201692*^9, 
   3.812427715095419*^9, 3.812754808178431*^9, 3.812793013634984*^9, 
   3.812795654498198*^9, 3.814566120784026*^9, 3.8145711423747053`*^9, 
   3.814572719695321*^9, 3.814572969952724*^9, 3.814574130935522*^9, 
   3.814577479441984*^9, 3.814580276931592*^9, 3.814582750511178*^9, 
   3.8145860676926737`*^9, 3.814613380039941*^9, 3.814628129134519*^9, 
   3.814628286942387*^9, 3.81462869482428*^9, 3.814647388023202*^9, 
   3.814649840474903*^9, 3.814656359930955*^9, 3.814663574534153*^9, 
   3.8146658178502007`*^9, 3.814723723917323*^9, {3.8147243273951187`*^9, 
   3.8147243416569653`*^9}, 3.814741383109069*^9, 3.814747584569873*^9, 
   3.814748613259839*^9, 3.8147502102631474`*^9, 3.814751105516531*^9, 
   3.8148081224338417`*^9, 3.81481312610679*^9, 3.8148151237302856`*^9, 
   3.816978617910379*^9, 3.816985968310573*^9, 3.85921443135343*^9, 
   3.8592178087506247`*^9, 3.859217895119532*^9, 3.8592179473281803`*^9, 
   3.8592180820005417`*^9, 3.859218555883922*^9, 3.859243801022832*^9, 
   3.859245696355077*^9, 3.8594116369697123`*^9, 3.859589404087488*^9, 
   3.8595919371396513`*^9, 3.8595923732450123`*^9, 3.86297015287576*^9, 
   3.862971038851737*^9, 3.865254516184483*^9, 3.8652928754662743`*^9, 
   3.865293381192916*^9, 3.865294432666326*^9, 3.865294710165118*^9, 
   3.865295192027701*^9, 3.868400615224856*^9, 3.8700214607108107`*^9, 
   3.870100803250807*^9, 3.90653466895573*^9, 3.906536939580153*^9, 
   3.906561603973281*^9, 3.906833871039515*^9, 3.906869688659604*^9, 
   3.906870279854644*^9, 3.906871066700513*^9, 3.9068713742985067`*^9, 
   3.9068714106316767`*^9, 3.906873170876885*^9, 3.9069007439958467`*^9, 
   3.906902297851626*^9, 3.906902344390525*^9, 3.906903727469344*^9, 
   3.906903959817621*^9, 3.906904211051956*^9, 3.906904619270403*^9, 
   3.906904679336658*^9, 3.906905140148878*^9, 3.906905231550506*^9, 
   3.9069053914871817`*^9, 3.9069055137599983`*^9, 3.9069056494962883`*^9, 
   3.9069059129446163`*^9, 3.9069061859683037`*^9, 3.906906847340991*^9, 
   3.906907281725053*^9, 3.906909498508677*^9, 3.906910282297393*^9, 
   3.9069104183442307`*^9, 3.906969406352524*^9, 3.9069702752048817`*^9, 
   3.906970506989464*^9, 3.906974844015441*^9, 3.906977083376399*^9, 
   3.9079269082871637`*^9, 3.908623694733227*^9, 3.9086298748019333`*^9, 
   3.908630846279702*^9, 3.908631020125826*^9, 3.945503219007433*^9, 
   3.945503579579317*^9, 3.945504439443593*^9, {3.945529050348568*^9, 
   3.945529076977932*^9}, 3.9455291105725193`*^9, 3.9455291795487623`*^9, 
   3.9455293467794313`*^9, 3.945605806404867*^9, 3.945607002375454*^9, 
   3.945607289355653*^9, 3.945686142606284*^9, 3.9459551786520777`*^9, 
   3.945956469129259*^9},
 CellLabel->
  "Out[2670]=",ExpressionUUID->"2eae4571-6742-4abb-88dc-b44404f45731"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fstarsg2", " ", "=", 
  RowBox[{"FullSimplify", "[", "fstarsg2", "]"}]}]], "Input",
 CellChangeTimes->{{3.9068338817745132`*^9, 3.9068338822325153`*^9}, 
   3.906869719731607*^9},
 NumberMarks->False,
 CellLabel->
  "In[2671]:=",ExpressionUUID->"09f6e0b5-1f48-45dc-b103-50c6a52c4ee3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{{3.9068338749086523`*^9, 3.906833883407007*^9}, 
   3.906869690525895*^9, 3.9068697208185472`*^9, 3.9068702831284847`*^9, 
   3.906871068368704*^9, 3.906871374362158*^9, 3.906871410694668*^9, 
   3.906873170939146*^9, 3.9069007468490973`*^9, 3.906902297893812*^9, 
   3.906902344432094*^9, 3.906903727511125*^9, 3.906903959861104*^9, 
   3.906904211094932*^9, 3.906904619312961*^9, 3.90690467937897*^9, 
   3.906905140191391*^9, 3.90690523159378*^9, 3.906905391531982*^9, 
   3.906905513805251*^9, 3.90690564954111*^9, 3.906905912988558*^9, 
   3.906906186014085*^9, 3.906906862574119*^9, 3.906907281795768*^9, 
   3.906909498553094*^9, 3.90691028234118*^9, 3.906910418388888*^9, 
   3.906969406395371*^9, 3.9069702752477427`*^9, 3.906970507032404*^9, 
   3.906974844059051*^9, 3.906977083428014*^9, 3.907926908327277*^9, 
   3.908623694770136*^9, 3.9086298769458513`*^9, 3.908630846320571*^9, 
   3.908631020163818*^9, 3.9455032190401297`*^9, 3.945503584910863*^9, 
   3.945504439471246*^9, {3.945529050379517*^9, 3.945529077005433*^9}, 
   3.9455291105995903`*^9, 3.94552917957598*^9, 3.945529346808099*^9, 
   3.9456058064360323`*^9, 3.945607002404007*^9, 3.945607289384118*^9, 
   3.945686142635344*^9, 3.945955178701807*^9, 3.94595646916173*^9},
 CellLabel->
  "Out[2671]=",ExpressionUUID->"f62a6b9c-90b4-4df7-8e06-d3284f1a36f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg2", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg2", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg2", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.81242038983422*^9, 3.812420407627741*^9}},
 CellLabel->
  "In[2672]:=",ExpressionUUID->"3361f1a4-924c-4dbb-9da1-e1acb09ed6dc"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], ")"}]}], 
     RowBox[{"beta", " ", "s"}]]]}], 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]]], "Output",
 CellChangeTimes->{
  3.814812231305292*^9, 3.8148131281728697`*^9, 3.8148151294349318`*^9, 
   3.816978621782181*^9, 3.816985970742099*^9, 3.859214434846573*^9, 
   3.85921781080821*^9, 3.85921789512608*^9, 3.8592179492101316`*^9, 
   3.8592180820241423`*^9, 3.859218555891698*^9, 3.8592438026173677`*^9, 
   3.859245696375671*^9, 3.859411636981578*^9, 3.859589404101471*^9, 
   3.859591937157011*^9, 3.859592373259183*^9, 3.862970154785887*^9, 
   3.862971038877571*^9, 3.865254516193357*^9, 3.865292877331003*^9, 
   3.86529338120133*^9, 3.86529443269307*^9, 3.865294710175062*^9, 
   3.865295192047823*^9, 3.868400615241519*^9, 3.8700214607273397`*^9, 
   3.8701008032700787`*^9, 3.906534668971711*^9, 3.906536942997239*^9, 
   3.906561606539529*^9, 3.9068338994217873`*^9, 3.906869693951524*^9, 
   3.9068702856960993`*^9, 3.906871070759553*^9, 3.9068713743718987`*^9, 
   3.90687141070282*^9, 3.906873170945839*^9, 3.906900750120068*^9, 
   3.906902297901732*^9, 3.906902344440345*^9, 3.906903727519721*^9, 
   3.906903959869637*^9, 3.9069042111036787`*^9, 3.9069046193216143`*^9, 
   3.906904679388116*^9, 3.9069051402003183`*^9, 3.906905231602998*^9, 
   3.906905391541518*^9, 3.906905513814796*^9, 3.9069056495507383`*^9, 
   3.90690591300734*^9, 3.906906186026429*^9, 3.9069068626200647`*^9, 
   3.906907281810926*^9, 3.906909498562087*^9, 3.906910282350297*^9, 
   3.906910418400394*^9, 3.906969406404955*^9, 3.9069702752573347`*^9, 
   3.9069705070422688`*^9, 3.9069748440693483`*^9, 3.9069770834441013`*^9, 
   3.90792690833074*^9, 3.908623694774226*^9, 3.9086298878598423`*^9, 
   3.90863084632623*^9, 3.908631020172138*^9, 3.9455032190428953`*^9, 
   3.9455035849293528`*^9, 3.945504439474162*^9, {3.9455290503830423`*^9, 
   3.9455290770087347`*^9}, 3.945529110602919*^9, 3.945529179579035*^9, 
   3.945529346812072*^9, 3.945605806439597*^9, 3.945607002407255*^9, 
   3.9456072893884172`*^9, 3.945686142638504*^9, 3.94595517870546*^9, 
   3.9459564691670017`*^9},
 CellLabel->
  "Out[2672]=",ExpressionUUID->"9126480f-2e27-4d60-bf84-e65fa821e340"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg2", " ", "=", 
  RowBox[{"FullSimplify", "[", "pstarsg2", "]"}]}]], "Input",
 CellChangeTimes->{
  3.8592144441862383`*^9, {3.906869698088286*^9, 3.90686969855826*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2673]:=",ExpressionUUID->"f6d033fb-5002-4171-a3d0-fd716eaf955c"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.859214436115979*^9, 3.859214445528172*^9}, 
   3.859217813510146*^9, 3.85921789514505*^9, 3.859217963413612*^9, 
   3.859218082047052*^9, 3.859218555912982*^9, 3.859243804496867*^9, 
   3.859245696396838*^9, 3.859411637019395*^9, 3.8595894041298523`*^9, 
   3.8595919371840467`*^9, 3.859592373283368*^9, 3.8629701565656548`*^9, 
   3.862971038934827*^9, 3.8652545162354383`*^9, 3.8652928795343723`*^9, 
   3.865293381252536*^9, 3.8652944327434187`*^9, 3.8652947102370863`*^9, 
   3.865295192119463*^9, 3.8684006152848454`*^9, 3.870021460776363*^9, 
   3.870100803316669*^9, 3.906534669001754*^9, 3.9065369461373997`*^9, 
   3.90656160945144*^9, 3.9068339029213257`*^9, 3.906869699374854*^9, 
   3.9068702877342863`*^9, 3.9068710728776417`*^9, 3.9068713744955883`*^9, 
   3.9068714108269587`*^9, 3.9068731710698137`*^9, 3.906900752625683*^9, 
   3.906902297979834*^9, 3.9069023445188837`*^9, 3.906903727598477*^9, 
   3.90690395995117*^9, 3.9069042111838713`*^9, 3.906904619401134*^9, 
   3.906904679468027*^9, 3.9069051402797213`*^9, 3.906905231683467*^9, 
   3.906905391623624*^9, 3.906905513897705*^9, 3.906905649632946*^9, 
   3.906905913090578*^9, 3.906906186113557*^9, 3.906906862751539*^9, 
   3.906907281943619*^9, 3.906909498644747*^9, 3.9069102824325666`*^9, 
   3.906910418487089*^9, 3.906969406486556*^9, 3.906970275337957*^9, 
   3.906970507122219*^9, 3.9069748441491957`*^9, 3.906977083533339*^9, 
   3.90792690840101*^9, 3.908623694848873*^9, 3.908629890691865*^9, 
   3.90863084640127*^9, 3.908631020247168*^9, 3.9455032191035557`*^9, 
   3.945503584986908*^9, 3.945504439529518*^9, {3.945529050453535*^9, 
   3.9455290770640583`*^9}, 3.9455291106583776`*^9, 3.945529179635354*^9, 
   3.945529346869524*^9, 3.945605806500969*^9, 3.945607002463686*^9, 
   3.945607289445537*^9, 3.945686142698161*^9, 3.9459551787690477`*^9, 
   3.945956469230475*^9},
 CellLabel->
  "Out[2673]=",ExpressionUUID->"5e79c1b3-246e-41ef-97f7-9cc6fdc86626"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814812239767274*^9, 3.814812287613102*^9}, 
   3.814812843690076*^9},
 CellLabel->
  "In[2674]:=",ExpressionUUID->"8bf93e66-2499-482e-a419-2aca10c16fc4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.814812839371914*^9, 3.814812839375943*^9}},
 CellLabel->
  "In[2675]:=",ExpressionUUID->"4211e902-c9dd-4fed-b6cc-b65b67f347ad"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.814812301735626*^9, 3.814812846490717*^9},
 CellLabel->
  "In[2676]:=",ExpressionUUID->"be9bdca5-5ea8-4981-847f-f38ce49f4acd"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.81481232409807*^9, 3.814812333297271*^9}, {
  3.8148128610905533`*^9, 3.814812867389559*^9}},
 CellLabel->
  "In[2677]:=",ExpressionUUID->"9df41c0c-4635-4e2a-b337-0714fee02de3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8148128492607613`*^9, 3.814812849264657*^9}},
 CellLabel->
  "In[2678]:=",ExpressionUUID->"4b07b22a-6163-4009-aa0c-f161f8560616"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.814812226028431*^9, 3.814812855026923*^9},
 CellLabel->
  "In[2679]:=",ExpressionUUID->"1614fa0f-8ee5-4506-9cfa-bb269ac6c3da"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8148128569792843`*^9, 3.8148128593495502`*^9}},
 CellLabel->
  "In[2680]:=",ExpressionUUID->"f2339b38-e06c-4272-9d1e-ae93e2f38a55"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.8146474031722603`*^9, 3.814647518422901*^9}, {
   3.814647557902546*^9, 3.814647592021084*^9}, {3.814648613811554*^9, 
   3.814648659922401*^9}, {3.8146633318573713`*^9, 3.814663350557439*^9}, {
   3.814663594597623*^9, 3.814663596616707*^9}, {3.859214578281313*^9, 
   3.859214592045764*^9}, {3.859217967586855*^9, 3.8592179677537947`*^9}, {
   3.945503612815287*^9, 3.945503615461151*^9}, 3.945955426173092*^9},
 CellLabel->
  "In[2681]:=",ExpressionUUID->"15c80f76-344e-4f32-8ac1-9e031aa640c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", 
   RowBox[{"f", " ", "=", " ", "fstarsg2"}]}]}]], "Input",
 CellChangeTimes->{{3.8146634197144737`*^9, 3.8146634602583838`*^9}},
 CellLabel->
  "In[2682]:=",ExpressionUUID->"02cf2b26-0e07-4afb-b35e-4558dad29e9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{
  3.814663623941689*^9, 3.814665824431731*^9, 3.8147237328350363`*^9, 
   3.8147243476162777`*^9, 3.8147413914097357`*^9, 3.814747590589612*^9, 
   3.814748619272777*^9, 3.814750215384714*^9, 3.8147511120199738`*^9, 
   3.814808128475132*^9, 3.8148131313881483`*^9, 3.8148151324904346`*^9, 
   3.816985974876903*^9, 3.859217818610009*^9, 3.859217895217558*^9, 
   3.85921797051086*^9, 3.8592180820989943`*^9, 3.859218555962736*^9, 
   3.8592440753001137`*^9, 3.85924569645758*^9, 3.859411637095376*^9, 
   3.859589404188655*^9, 3.859591937246477*^9, 3.859592373348175*^9, 
   3.862970160976308*^9, 3.862971038999159*^9, 3.8652545162949257`*^9, 
   3.865293005037334*^9, 3.8652933813162317`*^9, 3.865294432815422*^9, 
   3.865294710364156*^9, 3.8652951921947327`*^9, 3.8684006153577757`*^9, 
   3.870021460926386*^9, 3.8701008033621264`*^9, 3.906534669027054*^9, 
   3.9065367732284327`*^9, 3.906536967338078*^9, 3.9065616173194*^9, 
   3.906833907580112*^9, {3.9068697038007298`*^9, 3.906869723992141*^9}, 
   3.906870296695915*^9, 3.906871076809462*^9, 3.9068713745550947`*^9, 
   3.9068714108739347`*^9, 3.90687317113627*^9, 3.9069008444144583`*^9, 
   3.9069022980103073`*^9, 3.906902344548517*^9, 3.9069037276287317`*^9, 
   3.906903959981557*^9, 3.906904211214513*^9, 3.906904619429702*^9, 
   3.906904679498619*^9, 3.906905140308652*^9, 3.9069052317153683`*^9, 
   3.906905391658135*^9, 3.906905513930202*^9, 3.906905649668104*^9, 
   3.906905913137937*^9, 3.90690618616932*^9, 3.906906862805537*^9, 
   3.906907281996459*^9, 3.906909498694558*^9, 3.9069102824615192`*^9, 
   3.9069104185276403`*^9, 3.906969406515561*^9, 3.9069703333589783`*^9, 
   3.906970507166059*^9, 3.9069748441971407`*^9, 3.9069770836322317`*^9, 
   3.9079269084298*^9, 3.908623694878972*^9, 3.9086298954953957`*^9, 
   3.908629932391343*^9, 3.908630846433055*^9, 3.908631020279086*^9, 
   3.945503219127789*^9, 3.945503621953375*^9, 3.9455044395510187`*^9, {
   3.945529050508424*^9, 3.945529077088024*^9}, 3.9455291106799297`*^9, 
   3.945529179662076*^9, 3.945529346895749*^9, 3.945605806527993*^9, 
   3.945607002492428*^9, 3.945607289478105*^9, 3.9456861427224417`*^9, 
   3.945955200705323*^9, 3.945956469253869*^9},
 CellLabel->
  "Out[2684]=",ExpressionUUID->"ece1ea59-cb1d-4f0b-bd50-3b6ea1035396"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "There", " ", "is", " ", "some", " ", "cbar", " ", "where", " ", "s2", " ",
     "is", " ", "indifferent", " ", "between", " ", "the", " ", "deal", " ", 
    "and", " ", 
    RowBox[{"fighting", ".", " ", "P"}], " ", "has", " ", "to", " ", 
    "calculate", " ", "that", " ", "andfigure", " ", "out", " ", "d"}], 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"d", " ", "=", " ", 
    RowBox[{"pstar", " ", "+", " ", "c"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cj2bar", " ", "=", " ", 
    RowBox[{"d", "-", 
     RowBox[{"(", "pstarsg2", ")"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.859214727949922*^9, 3.859214927387864*^9}, {
   3.859215035172206*^9, 3.8592150646346283`*^9}, 3.8592151314565573`*^9, {
   3.859215477934348*^9, 3.859215478946247*^9}, {3.859218004393675*^9, 
   3.859218004608*^9}, {3.859218531441682*^9, 3.8592185377733603`*^9}, 
   3.862970212460495*^9, 3.945503609827817*^9},
 CellLabel->
  "In[2685]:=",ExpressionUUID->"aa9f9840-9c78-43da-acf6-e4c011ab69d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", "d", "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.859214808895275*^9, 3.8592148605424147`*^9}, 
   3.859214906317906*^9, {3.859215118946494*^9, 3.859215132372567*^9}, 
   3.859215545144615*^9, 3.8592178257731457`*^9, 3.859217895266375*^9, {
   3.8592180002750187`*^9, 3.859218005992793*^9}, 3.859218082141182*^9, {
   3.859218556014563*^9, 3.859218570217505*^9}, 3.859244107269709*^9, 
   3.8592456964953403`*^9, 3.8594116371514072`*^9, 3.859589404249481*^9, 
   3.859591937307413*^9, 3.8595923734053917`*^9, 3.8629702143602057`*^9, 
   3.8629710390421953`*^9, 3.86525451633416*^9, 3.865293008338765*^9, 
   3.865293381380106*^9, 3.8652944328822517`*^9, 3.865294710408333*^9, 
   3.8652951922589006`*^9, 3.868400615391201*^9, 3.87002146097573*^9, 
   3.8701008033959913`*^9, 3.906534694395117*^9, 3.90653482813904*^9, 
   3.906536776211361*^9, 3.906536975762117*^9, 3.9065616219446907`*^9, 
   3.906833911277296*^9, 3.906869731151683*^9, 3.906870300808217*^9, 
   3.90687108062479*^9, 3.9068713745874977`*^9, 3.906871410914782*^9, 
   3.906873171166642*^9, 3.90690086418758*^9, 3.906902298018379*^9, 
   3.9069023445574408`*^9, 3.906903727637392*^9, 3.906903959989974*^9, 
   3.9069042112233143`*^9, 3.9069046194384127`*^9, 3.90690467950765*^9, 
   3.906905140317666*^9, 3.906905231724758*^9, 3.906905391668057*^9, 
   3.906905513939973*^9, 3.9069056496774893`*^9, 3.906905913147971*^9, 
   3.906906186180016*^9, 3.9069068628220797`*^9, 3.906907282010984*^9, 
   3.9069094987132463`*^9, 3.906910282470845*^9, 3.9069104185368977`*^9, 
   3.90696940652486*^9, 3.9069703358712673`*^9, 3.9069705071842957`*^9, 
   3.906974844214905*^9, 3.906977083654943*^9, 3.907926908435054*^9, 
   3.908623694882886*^9, 3.908629934315774*^9, 3.908630846440856*^9, 
   3.908631020284588*^9, 3.945503219131048*^9, 3.9455036219770823`*^9, 
   3.945504439553597*^9, {3.9455290505112467`*^9, 3.9455290770907593`*^9}, 
   3.945529110682743*^9, 3.945529179665348*^9, 3.945529346898855*^9, 
   3.945605806530991*^9, 3.9456070024953327`*^9, 3.945607289482604*^9, 
   3.945686142725679*^9, 3.945955441459737*^9, 3.9459564692594023`*^9},
 CellLabel->
  "Out[2685]=",ExpressionUUID->"e4ee6dd4-9632-446d-9f6b-e66987d7e970"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"probr2", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"cj2bar", "-", "0"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"cjmax", "-", "0"}], ")"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.8146638457528067`*^9, 3.81466390785433*^9}, {
  3.906871083723155*^9, 3.9068710856820393`*^9}},
 CellLabel->
  "In[2686]:=",ExpressionUUID->"18b22028-6350-48b4-b149-55ab62456b35"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "d", "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"beta", " ", "s", " ", "t"}], 
     RowBox[{"beta", "-", 
      RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.814747602197254*^9, 3.814748638515298*^9, 3.81475022568653*^9, 
   3.814751122107725*^9, 3.81480813775275*^9, 3.8148131504951887`*^9, 
   3.8148151865759287`*^9, 3.8169859876335917`*^9, {3.859215126063469*^9, 
   3.8592151341304398`*^9}, 3.859215548988639*^9, {3.8592178749809923`*^9, 
   3.8592178952849817`*^9}, 3.859218010650773*^9, 3.859218082166975*^9, 
   3.8592185720442257`*^9, 3.859244196747883*^9, 3.859245696507578*^9, 
   3.859411637188218*^9, 3.859589404277965*^9, 3.8595919373364162`*^9, 
   3.859592373430846*^9, 3.862970222075605*^9, 3.8629710390538063`*^9, 
   3.865254516356916*^9, 3.865293381387533*^9, 3.865294432890308*^9, 
   3.865294710433422*^9, 3.865295192267473*^9, 3.868400615396164*^9, 
   3.8700214609951563`*^9, 3.870100803402836*^9, 3.90653471781357*^9, 
   3.906534831419108*^9, 3.9065367796964207`*^9, 3.906536985137252*^9, 
   3.906561637621941*^9, 3.906833941803422*^9, 3.9068697343375483`*^9, 
   3.906870308466115*^9, 3.906871086609761*^9, 3.906871374605545*^9, 
   3.906871410923072*^9, 3.906873171173938*^9, 3.906900935299309*^9, 
   3.906902298030835*^9, 3.9069023445716047`*^9, 3.9069037276520452`*^9, 
   3.9069039600051317`*^9, 3.906904211238019*^9, 3.906904619454142*^9, 
   3.906904679524364*^9, 3.90690514033393*^9, 3.9069052317382917`*^9, 
   3.906905391683771*^9, 3.906905513952712*^9, 3.9069056496951113`*^9, 
   3.9069059131713457`*^9, 3.906906186206079*^9, 3.906906862851283*^9, 
   3.906907282040738*^9, 3.906909498731101*^9, 3.906910282487136*^9, 
   3.9069104185525103`*^9, 3.906969406540387*^9, 3.906970337581071*^9, 
   3.906970507194062*^9, 3.906974844225449*^9, 3.906977083673441*^9, 
   3.9079269084468737`*^9, 3.908623694898615*^9, {3.9086299449846992`*^9, 
   3.908629965862825*^9}, 3.9086308464543943`*^9, 3.908631020299204*^9, 
   3.9455032191406097`*^9, 3.9455036272921343`*^9, 3.9455044395561037`*^9, {
   3.945529050524226*^9, 3.945529077100678*^9}, 3.9455291106886177`*^9, 
   3.945529179679719*^9, 3.945529346908223*^9, 3.945605806533792*^9, 
   3.9456070025091677`*^9, 3.945607289496694*^9, 3.945686142735714*^9, 
   3.945955455532443*^9, 3.945956469266531*^9},
 CellLabel->
  "Out[2686]=",ExpressionUUID->"1fd8b8c3-a71a-4267-a9a7-b78f542ff053"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{"probr2", " ", "=", " ", 
   RowBox[{"FullSimplify", "[", "probr2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.906873180013812*^9, 3.906873204639615*^9}},
 CellLabel->
  "In[2687]:=",ExpressionUUID->"25755023-8cd6-4fb1-9e12-58f70da8b0c8"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "d", "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"beta", " ", "s", " ", "t"}], 
     RowBox[{"beta", "-", 
      RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.906873205612925*^9, 3.906900937228441*^9, 3.906902298061349*^9, 
   3.906902344602037*^9, 3.9069037276831512`*^9, 3.906903960036482*^9, 
   3.906904211269451*^9, 3.906904619485001*^9, 3.9069046795555153`*^9, 
   3.906905140365643*^9, 3.906905231770073*^9, 3.906905391727098*^9, 
   3.906905513985443*^9, 3.906905649729808*^9, 3.906905913204756*^9, 
   3.906906186239455*^9, 3.906906862900844*^9, 3.906907282091432*^9, 
   3.9069094987689037`*^9, 3.906910282527022*^9, 3.906910418586121*^9, 
   3.9069694065726833`*^9, 3.906970339102901*^9, 3.906970458598732*^9, 
   3.906970507225985*^9, 3.9069748442579527`*^9, 3.906977083716222*^9, 
   3.90792690847365*^9, 3.908623694926282*^9, 3.908629967435997*^9, 
   3.908630846482881*^9, 3.908631020327571*^9, 3.94550321916261*^9, 
   3.9455036306170597`*^9, 3.9455044395759907`*^9, {3.94552905054443*^9, 
   3.9455290771208887`*^9}, 3.945529110708498*^9, 3.945529179700203*^9, 
   3.94552934692834*^9, 3.9456058065558653`*^9, 3.94560700253004*^9, 
   3.9456072895177193`*^9, 3.945686142756295*^9, 3.945955550129004*^9, 
   3.9459564692902403`*^9},
 CellLabel->
  "Out[2687]=",ExpressionUUID->"f16a0a23-a9e1-4e2a-8715-23bea57a17fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UPsg2", " ", "=", " ", 
  RowBox[{
   RowBox[{"probr2", "*", 
    RowBox[{"(", "Node5P", ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "probr2"}], ")"}], "*", 
    RowBox[{"(", "Node2P", ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.814663918476495*^9, 3.814663951859977*^9}},
 CellLabel->
  "In[2688]:=",ExpressionUUID->"ba37310d-1668-492f-b432-80d7fda2d5fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "+", "d"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "d", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "cjmax"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "d", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "-", 
      RowBox[{"s", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}], 
           RowBox[{"beta", " ", "s"}]]]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"t", " ", 
           RowBox[{"(", 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], ")"}]}], 
          RowBox[{"beta", " ", "s"}]]]}], 
       SqrtBox[
        FractionBox[
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}], ")"}]}], 
         RowBox[{"beta", " ", "s"}]]]], "-", 
      FractionBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "t"}], "+", 
          SqrtBox[
           FractionBox[
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}], ")"}]}], 
            RowBox[{"beta", " ", "s"}]]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"t", " ", 
               RowBox[{"(", 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}], ")"}]}], 
              RowBox[{"beta", " ", "s"}]]]}], 
           SqrtBox[
            FractionBox[
             RowBox[{"t", " ", 
              RowBox[{"(", 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}], ")"}]}], 
             RowBox[{"beta", " ", "s"}]]]]}], ")"}]}], "beta"]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.8146639541640453`*^9, 3.814665837497972*^9, 3.814723747173678*^9, 
   3.81472448787497*^9, 3.814741408310968*^9, 3.814747628286852*^9, 
   3.814748664304274*^9, 3.814750239358254*^9, 3.814751125756816*^9, 
   3.814808140625078*^9, 3.814813153503572*^9, 3.8148151943604937`*^9, 
   3.8169859907699423`*^9, 3.8592151425840397`*^9, 3.85921556411066*^9, 
   3.859217895291402*^9, 3.859218012963655*^9, 3.859218082176323*^9, 
   3.859218576348544*^9, 3.8592442939632072`*^9, 3.859245696528892*^9, 
   3.859411637200018*^9, 3.85959193735086*^9, 3.859592373449535*^9, 
   3.86297022763113*^9, 3.8629710390792713`*^9, 3.8652545163625402`*^9, {
   3.865293336135603*^9, 3.8652933814135437`*^9}, 3.8652944329185143`*^9, 
   3.865294710442525*^9, 3.865295192294565*^9, 3.868400615401175*^9, 
   3.8700214610018187`*^9, 3.870100803421811*^9, {3.906534820027693*^9, 
   3.9065348337769527`*^9}, 3.906536783634664*^9, 3.906537002246526*^9, 
   3.90656163993618*^9, 3.906833945989492*^9, 3.906869737303134*^9, 
   3.906870311869368*^9, 3.90687108897408*^9, 3.906871374614026*^9, 
   3.906871410949256*^9, 3.906873489562828*^9, 3.906901229457397*^9, 
   3.906902298070066*^9, 3.906902344610461*^9, 3.906903727692268*^9, 
   3.9069039600528393`*^9, 3.90690421127815*^9, 3.9069046194942427`*^9, 
   3.906904679564604*^9, 3.906905140375003*^9, 3.9069052317854967`*^9, 
   3.9069053917418737`*^9, 3.9069055140004063`*^9, 3.9069056497649727`*^9, 
   3.906905913220332*^9, 3.9069061862556467`*^9, 3.906906862915243*^9, 
   3.906907282106246*^9, 3.9069094987929583`*^9, 3.9069102825576878`*^9, 
   3.906910418611012*^9, 3.9069694065994*^9, 3.90697046796006*^9, 
   3.906970507236051*^9, 3.9069748442685633`*^9, 3.906977083732808*^9, 
   3.907926908540691*^9, 3.908623694933288*^9, 3.9086299692131367`*^9, 
   3.9086308464895973`*^9, 3.908631020333261*^9, 3.9455032191654654`*^9, 
   3.945503633930941*^9, 3.945504439579035*^9, {3.94552905055021*^9, 
   3.945529077124618*^9}, 3.945529110711946*^9, 3.945529179703705*^9, 
   3.945529346931757*^9, 3.945605806559664*^9, 3.9456070025341387`*^9, 
   3.945607289521811*^9, 3.945686142759872*^9, 3.945955555710414*^9, 
   3.945956469294907*^9},
 CellLabel->
  "Out[2688]=",ExpressionUUID->"01519f5a-f190-497a-bbcc-df4aa3a89675"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UPsg2", " ", "=", 
  RowBox[{"Simplify", "[", "UPsg2", "]"}]}]], "Input",
 CellChangeTimes->{3.859215150590782*^9},
 NumberMarks->False,
 CellLabel->
  "In[2689]:=",ExpressionUUID->"11e78b57-c317-44c5-9909-16bc86f5da76"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "cjmax"], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "d"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "-", "cjmax", "+", "d", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}], ")"}]}], "s"]]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "d", "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"beta", " ", "s", " ", "t"}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "beta", " ", "t"}], "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"beta", " ", "t", " ", 
           RowBox[{"(", 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], ")"}]}], "s"]], "-", 
        RowBox[{"a", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}], "s"]]}], "+", 
        SqrtBox[
         RowBox[{"beta", " ", "s", " ", 
          SuperscriptBox["t", "3"], " ", 
          RowBox[{"(", 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}], ")"}]}]], "-", 
        RowBox[{"k", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "t"}], "+", 
           SqrtBox[
            FractionBox[
             RowBox[{"t", " ", 
              RowBox[{"(", 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}], ")"}]}], 
             RowBox[{"beta", " ", "s"}]]]}], ")"}]}]}], ")"}]}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.859215145771369*^9, 3.859215152043448*^9}, 
   3.859215574705145*^9, 3.859217895374874*^9, 3.8592180171711893`*^9, 
   3.859218082256288*^9, 3.85921857889994*^9, 3.859244302861223*^9, 
   3.859245696615127*^9, 3.8594116373294163`*^9, 3.85959193744137*^9, 
   3.859592373540854*^9, 3.862970230700753*^9, 3.862971039650783*^9, 
   3.865254516887583*^9, {3.8652933390868998`*^9, 3.86529336505335*^9}, 
   3.86529340047899*^9, 3.8652944334459267`*^9, 3.8652947110046873`*^9, 
   3.8652951928684673`*^9, 3.8684006159397917`*^9, 3.8700214615607*^9, 
   3.870100804012547*^9, 3.9065348373908367`*^9, 3.906536788135707*^9, 
   3.906537012097859*^9, 3.9065616436818857`*^9, 3.906833950593391*^9, 
   3.906869740164342*^9, 3.90687031505098*^9, 3.906871092624475*^9, 
   3.906871375000873*^9, 3.90687141133337*^9, 3.906873491846159*^9, 
   3.906901269811627*^9, 3.90690229831145*^9, 3.906902344848564*^9, 
   3.906903727932722*^9, 3.9069039603003063`*^9, 3.906904211519329*^9, 
   3.906904619743927*^9, 3.90690467980285*^9, 3.906905140615425*^9, 
   3.906905232030058*^9, 3.906905392006915*^9, 3.906905514267391*^9, 
   3.9069056500165653`*^9, 3.90690591346922*^9, 3.906906186504723*^9, 
   3.906906863309536*^9, 3.906907282509575*^9, 3.9069094990433893`*^9, 
   3.906910282816063*^9, 3.9069104188609056`*^9, 3.906969406850212*^9, {
   3.906970477863513*^9, 3.906970507474587*^9}, 3.906974844507023*^9, 
   3.90697708398779*^9, 3.907926908771728*^9, 3.908623695170334*^9, 
   3.9086299709439373`*^9, 3.90863084672289*^9, 3.90863102056781*^9, 
   3.94550321936092*^9, 3.9455036372061663`*^9, 3.945504439758581*^9, {
   3.945529050738326*^9, 3.945529077308332*^9}, 3.945529110894041*^9, 
   3.945529179886895*^9, 3.945529347119832*^9, 3.9456058067607317`*^9, 
   3.945607002723473*^9, 3.9456072897066402`*^9, 3.945686142948503*^9, 
   3.945955560626616*^9, 3.9459564694989*^9},
 CellLabel->
  "Out[2689]=",ExpressionUUID->"b5cb66aa-7d9d-4043-a3aa-10da4d6d3654"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "d"], "UPsg2"}], " ", "\[Equal]", " ", "0"}],
    ",", "d"}], "]"}]], "Input",
 CellChangeTimes->{{3.814664158812491*^9, 3.81466416268688*^9}, {
  3.8629702374052353`*^9, 3.862970239255558*^9}, {3.9068339810989313`*^9, 
  3.906833983739069*^9}, {3.9068697997567797`*^9, 3.906869801334242*^9}},
 CellLabel->
  "In[2690]:=",ExpressionUUID->"32dfd5ee-6f8e-4d2c-8a6b-444e4cd49562"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"d", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], "beta"], "+", 
            RowBox[{"s", " ", "t"}], "-", 
            RowBox[{
              SqrtBox[
               RowBox[{"beta", " ", "s", " ", "t"}]], " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "-", 
            FractionBox[
             RowBox[{"2", " ", "s", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "t"}], "s"]]}], 
             SqrtBox[
              RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]], "+", 
            FractionBox[
             RowBox[{"2", " ", "k", " ", "s", " ", "t", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "t"}], "s"]]}], 
             RowBox[{"beta", " ", 
               SqrtBox[
                RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]}]]}], ")"}]}], 
      RowBox[{
        RowBox[{"s", "<", 
          FractionBox["1", "t"]}], "&&", 
        RowBox[{"beta", ">", 
          RowBox[{"-", 
            FractionBox[
             RowBox[{"k", " ", "t"}], 
             RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"s", " ", "t"}]}]]}]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9069013295196257`*^9, 3.9069022986620197`*^9, 3.906902345191683*^9, 
   3.906903728283985*^9, 3.906903960661338*^9, 3.906904211872424*^9, 
   3.906904620078032*^9, 3.9069046801503677`*^9, 3.906905140956402*^9, 
   3.9069052323857613`*^9, 3.9069053923606787`*^9, 3.9069055146493196`*^9, 
   3.906905650366068*^9, 3.906905913815857*^9, 3.906906186865161*^9, 
   3.906906863885178*^9, 3.906907283084478*^9, 3.906909499405014*^9, 
   3.906910283185063*^9, 3.906910419214087*^9, 3.906969407195203*^9, 
   3.906970516471521*^9, 3.9069748448418016`*^9, 3.906977084378345*^9, 
   3.907926909077293*^9, 3.908623695499489*^9, 3.9086299809529543`*^9, 
   3.908630847059023*^9, 3.908631020908327*^9, 3.945503219670885*^9, 
   3.945503673454111*^9, 3.9455044399972677`*^9, {3.945529050979104*^9, 
   3.945529077550795*^9}, 3.945529111142198*^9, 3.94552918012683*^9, 
   3.945529347364698*^9, 3.945605807026662*^9, 3.9456070029719887`*^9, 
   3.945607289951578*^9, 3.945686143208378*^9, 3.945955710770769*^9, 
   3.9459564695451307`*^9},
 CellLabel->
  "Out[2690]=",ExpressionUUID->"ab77b315-f943-44e9-b20e-eb2923f362e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg2", " ", "=", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "cjmax", "-", 
     FractionBox[
      RowBox[{"k", " ", "t"}], "beta"], "+", 
     RowBox[{"s", " ", "t"}], "-", 
     RowBox[{
      SqrtBox[
       RowBox[{"beta", " ", "s", " ", "t"}]], " ", 
      SqrtBox[
       FractionBox["1", 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", "s", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "t"}], "s"]]}], 
      SqrtBox[
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]], "+", 
     FractionBox[
      RowBox[{"2", " ", "k", " ", "s", " ", "t", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "t"}], "s"]]}], 
      RowBox[{"beta", " ", 
       SqrtBox[
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]}]]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.814664177436894*^9, 3.814664185111536*^9}, 
   3.814723776602571*^9, 3.8147245190490227`*^9, 3.814815238523075*^9, 
   3.859218036041079*^9, 3.8592185954088907`*^9, 3.8629702557094297`*^9, 
   3.8652934115668983`*^9, 3.906561712473071*^9, 3.906869833860264*^9, 
   3.906870352553398*^9, 3.906871121242717*^9, {3.906873537702648*^9, 
   3.906873559218397*^9}, {3.906873595096134*^9, 3.906873606719166*^9}, 
   3.906873649474362*^9, 3.906901374686414*^9, 3.9069016136721907`*^9, 
   3.906901658008731*^9, {3.9069705264147253`*^9, 3.9069705377033777`*^9}, 
   3.945955766353593*^9},
 CellLabel->
  "In[2691]:=",ExpressionUUID->"e02b21bd-db12-409a-a1ec-60df6066e423"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "cjmax", "-", 
    FractionBox[
     RowBox[{"k", " ", "t"}], "beta"], "+", 
    RowBox[{"s", " ", "t"}], "-", 
    RowBox[{
     SqrtBox[
      RowBox[{"beta", " ", "s", " ", "t"}]], " ", 
     SqrtBox[
      FractionBox["1", 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], "-", 
    FractionBox[
     RowBox[{"2", " ", "s", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "t"}], "s"]]}], 
     SqrtBox[
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]], "+", 
    FractionBox[
     RowBox[{"2", " ", "k", " ", "s", " ", "t", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "t"}], "s"]]}], 
     RowBox[{"beta", " ", 
      SqrtBox[
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.814664187384741*^9, 3.8146659223786583`*^9, 3.814723779885469*^9, 
   3.814724521083104*^9, 3.814741425202057*^9, 3.814747645164035*^9, 
   3.814748684997013*^9, 3.814750254110564*^9, 3.814751148623972*^9, 
   3.8148081634483767`*^9, 3.814813169762487*^9, 3.8148152413386908`*^9, 
   3.81698602278053*^9, 3.859217895417371*^9, 3.859218037361519*^9, 
   3.8592180823610907`*^9, 3.8592185968625383`*^9, 3.859244794527418*^9, 
   3.859245696668928*^9, 3.859411637419153*^9, 3.859591937499711*^9, 
   3.859592373609086*^9, 3.862970256915801*^9, 3.862971039855791*^9, 
   3.8652545170721493`*^9, 3.865293415736833*^9, 3.865294446972842*^9, 
   3.8652947111919603`*^9, 3.865295193034834*^9, 3.868400616148632*^9, 
   3.870021461713627*^9, 3.87010080417306*^9, {3.906561713698564*^9, 
   3.906561733870178*^9}, 3.90686983742701*^9, 3.906870357951118*^9, 
   3.90687112258631*^9, 3.906871375559572*^9, 3.906871411887534*^9, {
   3.9068735388261347`*^9, 3.906873560309229*^9}, {3.906873596178364*^9, 
   3.90687360732471*^9}, 3.9068736506726217`*^9, 3.9069013760706577`*^9, 
   3.9069016156369257`*^9, 3.906901659280566*^9, 3.9069022986728573`*^9, 
   3.9069023452010736`*^9, 3.9069037282936172`*^9, 3.9069039606800613`*^9, 
   3.906904211882415*^9, 3.906904620087597*^9, 3.9069046801604652`*^9, 
   3.906905140966909*^9, 3.906905232397366*^9, 3.906905392371117*^9, 
   3.90690551466166*^9, 3.9069056503767433`*^9, 3.9069059138288727`*^9, 
   3.9069061868776073`*^9, 3.9069068639003353`*^9, 3.906907283102364*^9, 
   3.9069094994151993`*^9, 3.906910283195315*^9, 3.906910419229555*^9, 
   3.9069694072076406`*^9, 3.906970541816401*^9, 3.90697484485424*^9, 
   3.906977084390779*^9, 3.907926909081853*^9, 3.908623695504732*^9, 
   3.908629984771356*^9, 3.9086308470657463`*^9, 3.9086310209149837`*^9, 
   3.9455032196752863`*^9, 3.9455036769667664`*^9, 3.9455044400013866`*^9, {
   3.945529050983756*^9, 3.945529077554996*^9}, 3.945529111150537*^9, 
   3.9455291801309023`*^9, 3.945529347369581*^9, 3.94560580703121*^9, 
   3.945607002993594*^9, 3.945607289957378*^9, 3.9456861432129917`*^9, 
   3.945955768143572*^9, 3.9459564695511627`*^9},
 CellLabel->
  "Out[2691]=",ExpressionUUID->"908f7724-4f56-4623-9512-5a81a399b701"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg2", " ", "=", 
  RowBox[{"FullSimplify", "[", "dstarsg2", "]"}]}]], "Input",
 CellChangeTimes->{{3.906870370694023*^9, 3.90687038008782*^9}},
 NumberMarks->False,
 CellLabel->
  "In[2692]:=",ExpressionUUID->"3babcd4b-8663-46f7-8f98-6d79e9a2cbac"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "k"}], " ", "t"}], "-", 
   RowBox[{"3", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"2", " ", "k", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "s", " ", 
       SuperscriptBox["t", "3"]}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"beta", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "cjmax", "+", 
      RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
  RowBox[{"2", " ", "beta"}]]], "Output",
 CellChangeTimes->{{3.906870368678816*^9, 3.9068703840521717`*^9}, 
   3.906871125901026*^9, 3.9068713761310863`*^9, 3.906871412448682*^9, {
   3.906873541842334*^9, 3.906873564008717*^9}, {3.9068735984290257`*^9, 
   3.9068736090909224`*^9}, 3.90687365282339*^9, 3.906901379474852*^9, 
   3.906901622346601*^9, 3.9069016621019773`*^9, 3.9069022989871197`*^9, 
   3.906902345510219*^9, 3.906903728609865*^9, 3.906903961000238*^9, 
   3.906904212200697*^9, 3.906904620409803*^9, 3.906904680471665*^9, 
   3.906905141285098*^9, 3.906905232718625*^9, 3.906905392690996*^9, 
   3.906905514991263*^9, 3.90690565070107*^9, 3.906905914152618*^9, 
   3.9069061872014437`*^9, 3.9069068644244413`*^9, 3.9069072836284924`*^9, 
   3.906909499732841*^9, 3.906910283530406*^9, 3.9069104195538816`*^9, 
   3.9069694075342216`*^9, 3.906970547188311*^9, 3.9069748451607313`*^9, 
   3.906977084707011*^9, 3.9079269093915052`*^9, 3.9086236958072557`*^9, 
   3.9086299872054653`*^9, 3.908630847381706*^9, 3.908631021222847*^9, 
   3.9455032199382467`*^9, 3.945503679466168*^9, 3.945504440239406*^9, {
   3.945529051226993*^9, 3.945529077787013*^9}, 3.9455291113870497`*^9, 
   3.945529180369893*^9, 3.9455293476072493`*^9, 3.945605807293981*^9, 
   3.94560700322972*^9, 3.9456072902140913`*^9, 3.945686143460688*^9, 
   3.9459557763416233`*^9, 3.945956469814543*^9},
 CellLabel->
  "Out[2692]=",ExpressionUUID->"5f98677a-2218-4f98-9c48-2322ec4643f5"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.9068703660851316`*^9},
 CellLabel->
  "In[2693]:=",ExpressionUUID->"02d43dff-190c-4e1a-ab75-9cb8c58b1a8f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"d", " ", "=", " ", 
  "dstarsg2"}], "\[IndentingNewLine]", "probr2", "\[IndentingNewLine]"}], \
"Input",
 CellChangeTimes->{{3.814750263173286*^9, 3.8147502793732758`*^9}},
 CellLabel->
  "In[2694]:=",ExpressionUUID->"9cd83f23-3f39-4bdf-9a3c-c077d61d5457"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "k"}], " ", "t"}], "-", 
   RowBox[{"3", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"2", " ", "k", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "s", " ", 
       SuperscriptBox["t", "3"]}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"beta", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "cjmax", "+", 
      RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
  RowBox[{"2", " ", "beta"}]]], "Output",
 CellChangeTimes->{{3.814750273582882*^9, 3.81475028084239*^9}, 
   3.8147511517575893`*^9, 3.8148081671529703`*^9, 3.814813182687063*^9, {
   3.814815247653605*^9, 3.814815250621684*^9}, 3.8169860265475492`*^9, 
   3.859217895441595*^9, 3.859218041840165*^9, 3.859218082390444*^9, 
   3.85921860062858*^9, 3.859244796578578*^9, 3.8592456966915197`*^9, 
   3.859411637475499*^9, 3.859591937526943*^9, 3.859592373641324*^9, 
   3.8629702595005407`*^9, 3.862971039882168*^9, 3.8652545171150713`*^9, 
   3.865293430518569*^9, 3.865294451311837*^9, 3.865294711202203*^9, 
   3.8652951930547943`*^9, 3.868400616161706*^9, 3.870021461728181*^9, 
   3.8701008041880836`*^9, 3.906561736142543*^9, 3.906869840776311*^9, 
   3.906870386632969*^9, 3.906871128867038*^9, 3.906871376161499*^9, 
   3.906871412476823*^9, 3.906901683971017*^9, 3.90690229900321*^9, 
   3.9069023455268106`*^9, 3.906903728626587*^9, 3.906903961019775*^9, 
   3.906904212218048*^9, 3.906904620429823*^9, 3.9069046804901667`*^9, 
   3.906905141309409*^9, 3.906905232737858*^9, 3.906905392712159*^9, 
   3.90690551501493*^9, 3.906905650720895*^9, 3.906905914175021*^9, 
   3.906906187253414*^9, 3.906906864457358*^9, 3.906907283662258*^9, 
   3.9069094997581787`*^9, 3.906910283548715*^9, 3.906910419572253*^9, 
   3.906969407551889*^9, 3.9069707526939373`*^9, 3.906974845193739*^9, 
   3.906977084726492*^9, 3.907926909405305*^9, 3.90862369582486*^9, 
   3.908630023293241*^9, 3.90863084739764*^9, 3.9086310212395353`*^9, 
   3.945503219951428*^9, 3.945503681292733*^9, 3.945504440261595*^9, {
   3.945529051244555*^9, 3.9455290778126*^9}, 3.945529111409869*^9, 
   3.945529180398775*^9, 3.9455293476345453`*^9, 3.945605807316759*^9, 
   3.945607003245723*^9, 3.945607290229701*^9, 3.945686143486246*^9, 
   3.945955955022312*^9, 3.9459560097281313`*^9, 3.945956469838318*^9},
 CellLabel->
  "Out[2694]=",ExpressionUUID->"3ee67bea-8e63-440f-9a84-0d22ec666fbf"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"beta", " ", "s", " ", "t"}], 
     RowBox[{"beta", "-", 
      RowBox[{"k", " ", "t"}]}]]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "k"}], " ", "t"}], "-", 
     RowBox[{"3", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{
         SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "+", 
     RowBox[{"2", " ", "k", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", 
         SuperscriptBox["t", "3"]}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "+", 
     RowBox[{"beta", " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", "cjmax", "+", 
        RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
    RowBox[{"2", " ", "beta"}]]}], "cjmax"]], "Output",
 CellChangeTimes->{{3.814750273582882*^9, 3.81475028084239*^9}, 
   3.8147511517575893`*^9, 3.8148081671529703`*^9, 3.814813182687063*^9, {
   3.814815247653605*^9, 3.814815250621684*^9}, 3.8169860265475492`*^9, 
   3.859217895441595*^9, 3.859218041840165*^9, 3.859218082390444*^9, 
   3.85921860062858*^9, 3.859244796578578*^9, 3.8592456966915197`*^9, 
   3.859411637475499*^9, 3.859591937526943*^9, 3.859592373641324*^9, 
   3.8629702595005407`*^9, 3.862971039882168*^9, 3.8652545171150713`*^9, 
   3.865293430518569*^9, 3.865294451311837*^9, 3.865294711202203*^9, 
   3.8652951930547943`*^9, 3.868400616161706*^9, 3.870021461728181*^9, 
   3.8701008041880836`*^9, 3.906561736142543*^9, 3.906869840776311*^9, 
   3.906870386632969*^9, 3.906871128867038*^9, 3.906871376161499*^9, 
   3.906871412476823*^9, 3.906901683971017*^9, 3.90690229900321*^9, 
   3.9069023455268106`*^9, 3.906903728626587*^9, 3.906903961019775*^9, 
   3.906904212218048*^9, 3.906904620429823*^9, 3.9069046804901667`*^9, 
   3.906905141309409*^9, 3.906905232737858*^9, 3.906905392712159*^9, 
   3.90690551501493*^9, 3.906905650720895*^9, 3.906905914175021*^9, 
   3.906906187253414*^9, 3.906906864457358*^9, 3.906907283662258*^9, 
   3.9069094997581787`*^9, 3.906910283548715*^9, 3.906910419572253*^9, 
   3.906969407551889*^9, 3.9069707526939373`*^9, 3.906974845193739*^9, 
   3.906977084726492*^9, 3.907926909405305*^9, 3.90862369582486*^9, 
   3.908630023293241*^9, 3.90863084739764*^9, 3.9086310212395353`*^9, 
   3.945503219951428*^9, 3.945503681292733*^9, 3.945504440261595*^9, {
   3.945529051244555*^9, 3.9455290778126*^9}, 3.945529111409869*^9, 
   3.945529180398775*^9, 3.9455293476345453`*^9, 3.945605807316759*^9, 
   3.945607003245723*^9, 3.945607290229701*^9, 3.945686143486246*^9, 
   3.945955955022312*^9, 3.9459560097281313`*^9, 3.945956469840259*^9},
 CellLabel->
  "Out[2695]=",ExpressionUUID->"c9ae47f8-11dc-439c-8f21-74ee3f3874b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Dstarsg2", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg2", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg2", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg2"}],
        "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Probr2", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"probr2", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"probr2", " ", "<", " ", "0"}], ",", "0", ",", "probr2"}], 
       "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814741933928244*^9, 3.8147419656263723`*^9}, {
  3.814742183609704*^9, 3.814742203198251*^9}, {3.814808852597665*^9, 
  3.814808853217186*^9}, {3.9069693311162863`*^9, 3.906969331891316*^9}},
 CellLabel->
  "In[2696]:=",ExpressionUUID->"9345e6e5-6394-4a5a-962c-ac28e8834dcd"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"2", " ", "k", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", 
          SuperscriptBox["t", "3"]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"beta", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
     RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.906904620446012*^9, 3.906904680506465*^9, 3.90690514132621*^9, 
   3.906905232755355*^9, 3.906905392730577*^9, 3.906905515049451*^9, 
   3.9069056507390537`*^9, 3.906905914219249*^9, 3.906906187283766*^9, 
   3.90690686448433*^9, 3.906907283689032*^9, 3.906909499774313*^9, 
   3.906910283584023*^9, 3.9069104195947113`*^9, 3.906969407568874*^9, 
   3.9069707562886763`*^9, 3.90697484521988*^9, 3.906977084744194*^9, 
   3.907926909410028*^9, 3.9086236958344193`*^9, 3.9086300254970303`*^9, 
   3.908630847408422*^9, 3.908631021247904*^9, 3.945503219954949*^9, 
   3.945503684127421*^9, 3.945504440266047*^9, {3.945529051249296*^9, 
   3.9455290778168*^9}, 3.9455291114144087`*^9, 3.945529180412318*^9, 
   3.9455293476526546`*^9, 3.945605807332168*^9, 3.945607003252005*^9, 
   3.945607290236758*^9, 3.945686143490903*^9, 3.945955969586576*^9, 
   3.9459564698484163`*^9},
 CellLabel->
  "Out[2696]=",ExpressionUUID->"2aec8b56-9d84-41f6-b4ba-c23bc0936f40"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "k"}], " ", "t"}], "-", 
        RowBox[{"3", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", 
            SuperscriptBox["t", "3"]}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"beta", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "+", 
           RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
       RowBox[{"2", " ", "beta"}]]}], "cjmax"], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"probr2", "<", "0"}], ",", "0", ",", "probr2"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.906904620446012*^9, 3.906904680506465*^9, 3.90690514132621*^9, 
   3.906905232755355*^9, 3.906905392730577*^9, 3.906905515049451*^9, 
   3.9069056507390537`*^9, 3.906905914219249*^9, 3.906906187283766*^9, 
   3.90690686448433*^9, 3.906907283689032*^9, 3.906909499774313*^9, 
   3.906910283584023*^9, 3.9069104195947113`*^9, 3.906969407568874*^9, 
   3.9069707562886763`*^9, 3.90697484521988*^9, 3.906977084744194*^9, 
   3.907926909410028*^9, 3.9086236958344193`*^9, 3.9086300254970303`*^9, 
   3.908630847408422*^9, 3.908631021247904*^9, 3.945503219954949*^9, 
   3.945503684127421*^9, 3.945504440266047*^9, {3.945529051249296*^9, 
   3.9455290778168*^9}, 3.9455291114144087`*^9, 3.945529180412318*^9, 
   3.9455293476526546`*^9, 3.945605807332168*^9, 3.945607003252005*^9, 
   3.945607290236758*^9, 3.945686143490903*^9, 3.945955969586576*^9, 
   3.9459564698504353`*^9},
 CellLabel->
  "Out[2697]=",ExpressionUUID->"f284db93-440c-4876-8f2a-4c3c08b143c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"postprobr2", " ", "=", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "Dstarsg2", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]}], "\[IndentingNewLine]", 
   RowBox[{"PostProbr2", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"postprobr2", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"postprobr2", " ", "<", " ", "0"}], ",", "0", ",", 
        "postprobr2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.90690441287175*^9, 3.9069044484449863`*^9}, {
  3.9069068658889437`*^9, 3.906906866107789*^9}, {3.906969335728863*^9, 
  3.906969336358288*^9}},
 CellLabel->
  "In[2698]:=",ExpressionUUID->"bd1254f4-6ec2-4199-82dc-70cbdf699cf3"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "cjmax"], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "s", " ", "t"}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]], "+", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "k"}], " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], "+", 
         RowBox[{"2", " ", "k", " ", 
          SqrtBox[
           FractionBox[
            RowBox[{"beta", " ", "s", " ", 
             SuperscriptBox["t", "3"]}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], "+", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
        RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}], 
     "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.814741974401936*^9, 3.814742225753069*^9, 3.814747671553555*^9, 
   3.814748776797719*^9, 3.814750345617003*^9, 3.814751182515966*^9, 
   3.814808213327815*^9, 3.814808854984428*^9, 3.8148132152049503`*^9, 
   3.814815327243012*^9, 3.816986061182021*^9, 3.859217897066701*^9, 
   3.859218200247271*^9, 3.8592186531291857`*^9, 3.859245523432666*^9, 
   3.859245697236102*^9, 3.8594116380481586`*^9, 3.85959193813196*^9, 
   3.8595923742487183`*^9, 3.862970290295602*^9, 3.86297104185419*^9, 
   3.865254518923149*^9, 3.8652946078789043`*^9, 3.865294713126052*^9, 
   3.8652951950353928`*^9, 3.868400617977537*^9, 3.870021463617374*^9, 
   3.870100806102106*^9, 3.906561763522141*^9, 3.906869902400824*^9, 
   3.9068703997860107`*^9, 3.9068711565478897`*^9, 3.9068713771772223`*^9, 
   3.906871413496768*^9, 3.9069017515274553`*^9, 3.9069022990178213`*^9, 
   3.9069023455416822`*^9, 3.9069037286434937`*^9, 3.90690396103563*^9, 
   3.906904212234026*^9, 3.9069046204835243`*^9, 3.906904680543414*^9, 
   3.906905141364049*^9, 3.906905232792605*^9, 3.906905392783161*^9, 
   3.906905515093814*^9, 3.9069056507849007`*^9, 3.9069059142525043`*^9, 
   3.906906187318345*^9, 3.906906867606102*^9, 3.906907283752666*^9, 
   3.906909499810277*^9, 3.9069102836151133`*^9, 3.906910419641222*^9, 
   3.9069694075916777`*^9, 3.906970760670871*^9, 3.906974845239027*^9, 
   3.906977084776546*^9, 3.9079269094145*^9, 3.908623695851913*^9, 
   3.908630027535767*^9, 3.908630847425201*^9, 3.9086310212677317`*^9, 
   3.945503219968202*^9, 3.9455036863973*^9, 3.945504440275716*^9, {
   3.945529051262744*^9, 3.945529077830474*^9}, 3.945529111424209*^9, 
   3.945529180417109*^9, 3.945529347658476*^9, 3.9456058073378973`*^9, 
   3.945607003268107*^9, 3.945607290251169*^9, 3.94568614350515*^9, 
   3.945955985771516*^9, 3.94595646985511*^9},
 CellLabel->
  "Out[2698]=",ExpressionUUID->"809503b4-7fc1-4e24-8970-fdbc57ffd3d2"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "cjmax"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]], "+", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
          "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], "]"}]}],
   "]"}]], "Output",
 CellChangeTimes->{
  3.814741974401936*^9, 3.814742225753069*^9, 3.814747671553555*^9, 
   3.814748776797719*^9, 3.814750345617003*^9, 3.814751182515966*^9, 
   3.814808213327815*^9, 3.814808854984428*^9, 3.8148132152049503`*^9, 
   3.814815327243012*^9, 3.816986061182021*^9, 3.859217897066701*^9, 
   3.859218200247271*^9, 3.8592186531291857`*^9, 3.859245523432666*^9, 
   3.859245697236102*^9, 3.8594116380481586`*^9, 3.85959193813196*^9, 
   3.8595923742487183`*^9, 3.862970290295602*^9, 3.86297104185419*^9, 
   3.865254518923149*^9, 3.8652946078789043`*^9, 3.865294713126052*^9, 
   3.8652951950353928`*^9, 3.868400617977537*^9, 3.870021463617374*^9, 
   3.870100806102106*^9, 3.906561763522141*^9, 3.906869902400824*^9, 
   3.9068703997860107`*^9, 3.9068711565478897`*^9, 3.9068713771772223`*^9, 
   3.906871413496768*^9, 3.9069017515274553`*^9, 3.9069022990178213`*^9, 
   3.9069023455416822`*^9, 3.9069037286434937`*^9, 3.90690396103563*^9, 
   3.906904212234026*^9, 3.9069046204835243`*^9, 3.906904680543414*^9, 
   3.906905141364049*^9, 3.906905232792605*^9, 3.906905392783161*^9, 
   3.906905515093814*^9, 3.9069056507849007`*^9, 3.9069059142525043`*^9, 
   3.906906187318345*^9, 3.906906867606102*^9, 3.906907283752666*^9, 
   3.906909499810277*^9, 3.9069102836151133`*^9, 3.906910419641222*^9, 
   3.9069694075916777`*^9, 3.906970760670871*^9, 3.906974845239027*^9, 
   3.906977084776546*^9, 3.9079269094145*^9, 3.908623695851913*^9, 
   3.908630027535767*^9, 3.908630847425201*^9, 3.9086310212677317`*^9, 
   3.945503219968202*^9, 3.9455036863973*^9, 3.945504440275716*^9, {
   3.945529051262744*^9, 3.945529077830474*^9}, 3.945529111424209*^9, 
   3.945529180417109*^9, 3.945529347658476*^9, 3.9456058073378973`*^9, 
   3.945607003268107*^9, 3.945607290251169*^9, 3.94568614350515*^9, 
   3.945955985771516*^9, 3.945956469857058*^9},
 CellLabel->
  "Out[2699]=",ExpressionUUID->"167e20c7-90dd-41da-9abc-8b318a7603ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "**", "**", "**", "**", "**", "**", "Sg"}], " ", 
     RowBox[{
     "3", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**"}]}], "*****)"}]}]}]], "Input",
 CellChangeTimes->{{3.814664525004904*^9, 3.814664540838704*^9}, {
   3.81474795117631*^9, 3.8147479513286457`*^9}, 3.8148112730291643`*^9, {
   3.814811377826195*^9, 3.814811410844803*^9}, {3.814812884532394*^9, 
   3.814812889832881*^9}, {3.814812922154365*^9, 3.814812930392301*^9}, {
   3.8148134733778553`*^9, 3.8148134752222633`*^9}, {3.859218794397949*^9, 
   3.859218794765278*^9}, {3.9069017846981773`*^9, 3.906901785057413*^9}, {
   3.9456861011734333`*^9, 3.945686101543035*^9}},
 CellLabel->
  "In[2700]:=",ExpressionUUID->"d710807b-edbe-41a9-ade3-4bfa09c0cfe1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=."}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"d", "=."}], "\n", 
 RowBox[{"PUSG3", " ", "=", " ", "Node6P"}], "\[IndentingNewLine]"}], "Input",\

 CellChangeTimes->{{3.814811352256537*^9, 3.814811359466757*^9}, 
   3.814811423297978*^9, 3.814813481012723*^9, 3.814813603150178*^9, {
   3.814815699980174*^9, 3.81481571013056*^9}},
 CellLabel->
  "In[2708]:=",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "f"}], " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{
  3.814813604823053*^9, {3.814814326170725*^9, 3.814814346625568*^9}, 
   3.8148153641231747`*^9, 3.814815765085505*^9, 3.816988558779553*^9, 
   3.85921790546726*^9, 3.8592183420226793`*^9, 3.859218804992879*^9, 
   3.85924562245776*^9, 3.859245703503538*^9, 3.859411640137005*^9, 
   3.8595923765073547`*^9, 3.8629703901101627`*^9, 3.862971044012603*^9, 
   3.865294738864802*^9, 3.8652952206852417`*^9, 3.868400642627555*^9, 
   3.870021488144553*^9, 3.8701008309016542`*^9, 3.906561802878437*^9, {
   3.906869924892364*^9, 3.906869927021606*^9}, 3.9068704179020443`*^9, 
   3.906871176179723*^9, 3.906871380349258*^9, 3.9068714166403646`*^9, {
   3.906901836624968*^9, 3.90690183809595*^9}, 3.9069023012045803`*^9, 
   3.906902347685273*^9, 3.906903730901651*^9, 3.9069039633961287`*^9, 
   3.9069042144064913`*^9, 3.906904622665189*^9, 3.9069046827257643`*^9, 
   3.906905395012992*^9, 3.906905517411654*^9, 3.9069056531185102`*^9, 
   3.906905916533922*^9, 3.906906189704824*^9, 3.906906895993184*^9, 
   3.9069072873438063`*^9, 3.906909502001685*^9, 3.906910286021125*^9, 
   3.906910421987228*^9, 3.90696940980733*^9, 3.906971190829772*^9, 
   3.9069748456637497`*^9, 3.906977085245384*^9, 3.907926909703536*^9, 
   3.908623696180476*^9, {3.908630041548799*^9, 3.908630070062072*^9}, 
   3.908630847587537*^9, 3.908631021412703*^9, 3.94550322005306*^9, 
   3.94550370180735*^9, 3.945504440282164*^9, {3.94552905127639*^9, 
   3.945529077848296*^9}, 3.945529111433055*^9, 3.9455291804303637`*^9, 
   3.9455293476721697`*^9, 3.945605807354377*^9, 3.945607003289291*^9, 
   3.945607290270759*^9, 3.9456861435216007`*^9, 3.9459560381107607`*^9, 
   3.94595646986903*^9},
 CellLabel->
  "Out[2710]=",ExpressionUUID->"e7741ee9-5758-4906-bcd8-ad26dea4bac0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "f"], "PUSG3"}], "\[Equal]", "0"}], ",", 
     "f", ",", "NonNegativeReals"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8148136159687*^9, 3.814813623630949*^9}, {
  3.862970392954705*^9, 3.8629703951088047`*^9}, {3.906561807318676*^9, 
  3.906561807636965*^9}, {3.906869932458211*^9, 3.906869938066823*^9}},
 CellLabel->
  "In[2711]:=",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
             RowBox[{"beta", " ", "t"}], "-", 
             RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], 
      RowBox[{
        RowBox[{"k", "<", 
          FractionBox["beta", "t"]}], "&&", 
        RowBox[{"s", "<", 
          FractionBox[
           RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], 
           RowBox[{"beta", " ", "t"}]]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.814813625327736*^9, 3.814814350730351*^9, 3.814815368412043*^9, 
   3.814815768199292*^9, 3.816988561957851*^9, 3.859217905473254*^9, 
   3.8592183443241777`*^9, 3.8592188066144333`*^9, 3.859245622522066*^9, 
   3.8592457059466257`*^9, 3.859411640173985*^9, 3.859592376521892*^9, 
   3.862970395667705*^9, 3.862971044039125*^9, 3.86529473889636*^9, 
   3.865295220718892*^9, 3.868400642648445*^9, 3.8700214881633053`*^9, 
   3.870100830928956*^9, 3.906561808805277*^9, {3.906869929373604*^9, 
   3.906869938692971*^9}, 3.906870421326079*^9, 3.906871178293811*^9, 
   3.906871380388071*^9, 3.90687141667939*^9, 3.906901840919696*^9, 
   3.906902301232244*^9, 3.906902347712558*^9, 3.9069037309293957`*^9, 
   3.9069039634247723`*^9, 3.906904214435158*^9, 3.9069046226936693`*^9, 
   3.906904682754059*^9, 3.906905395042123*^9, 3.9069055174415007`*^9, 
   3.90690565314816*^9, 3.9069059165656767`*^9, 3.906906189735243*^9, 
   3.906906897745118*^9, 3.906907287389018*^9, 3.906909502029755*^9, 
   3.9069102860505457`*^9, 3.906910422016727*^9, 3.906969409836355*^9, 
   3.906971192342456*^9, 3.906974845693921*^9, 3.906977085280298*^9, 
   3.907926909728163*^9, 3.908623696202683*^9, 3.908630071859445*^9, 
   3.908630847611382*^9, 3.908631021436439*^9, 3.945503220071002*^9, 
   3.94550370522857*^9, 3.945504440299019*^9, {3.945529051293561*^9, 
   3.945529077865692*^9}, 3.945529111454419*^9, 3.945529180447711*^9, 
   3.945529347689481*^9, 3.945605807374124*^9, 3.945607003307393*^9, 
   3.945607290288814*^9, 3.945686143551181*^9, 3.945956042402527*^9, 
   3.945956469889172*^9},
 CellLabel->
  "Out[2711]=",ExpressionUUID->"cbc10482-87df-48fd-980a-09deb00ee59c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fstarsg3", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "t"}], "+", 
    RowBox[{
     SqrtBox[
      FractionBox["1", 
       RowBox[{"beta", " ", "s"}]]], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"beta", " ", "t"}], "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["t", "2"]}]}]]}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", 
  RowBox[{"Simplify", "[", "fstarsg3", "]"}]}]}], "Input",
 CellChangeTimes->{{3.814813631424466*^9, 3.814813656795336*^9}, {
   3.8148157133764153`*^9, 3.814815721656961*^9}, 3.859218366911003*^9, 
   3.862970404472912*^9, 3.906561815437086*^9, 3.906869947292284*^9, {
   3.906901868588356*^9, 3.906901869738811*^9}},
 CellLabel->
  "In[2712]:=",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.859218354288773*^9}, {
   3.859218808331015*^9, 3.859218809992529*^9}, 3.859245622534225*^9, {
   3.859245709336193*^9, 3.8592457109261103`*^9}, 3.859411640190054*^9, 
   3.859592376546376*^9, 3.8629704078596773`*^9, 3.8629710440571423`*^9, 
   3.8652947389132032`*^9, 3.865295220761862*^9, 3.868400642661127*^9, 
   3.870021488172928*^9, 3.870100830943613*^9, 3.906561816721931*^9, 
   3.906869948719018*^9, {3.906870424414591*^9, 3.906870428570133*^9}, {
   3.90687118504716*^9, 3.9068711876114883`*^9}, 3.9068713803977222`*^9, 
   3.906871416689292*^9, {3.906901847655851*^9, 3.906901873428322*^9}, 
   3.906902301241581*^9, 3.9069023477220488`*^9, 3.90690373093922*^9, 
   3.9069039634354353`*^9, 3.906904214445237*^9, 3.9069046227047367`*^9, 
   3.90690468276477*^9, 3.906905395061198*^9, 3.906905517462173*^9, 
   3.906905653159647*^9, 3.9069059165791283`*^9, 3.9069061897564173`*^9, {
   3.906906899860174*^9, 3.9069069019237537`*^9}, 3.906907287406105*^9, 
   3.906909502039974*^9, 3.9069102860611362`*^9, 3.906910422027721*^9, 
   3.906969409853993*^9, {3.90697119419016*^9, 3.906971196093993*^9}, 
   3.906974845705626*^9, 3.906977085297831*^9, 3.907926909732358*^9, 
   3.90862369620779*^9, 3.9086300736456423`*^9, 3.9086308476178827`*^9, 
   3.908631021443141*^9, 3.945503220074404*^9, 3.945503710180092*^9, 
   3.945504440304408*^9, {3.945529051299225*^9, 3.945529077869603*^9}, 
   3.945529111458413*^9, 3.9455291804525433`*^9, 3.945529347694311*^9, 
   3.945605807379519*^9, 3.945607003311631*^9, 3.945607290293367*^9, 
   3.9456861435651913`*^9, 3.945956175126358*^9, 3.94595646989472*^9},
 CellLabel->
  "Out[2712]=",ExpressionUUID->"cfe5fc3b-55ae-48a2-b672-e2c72b52f344"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.859218354288773*^9}, {
   3.859218808331015*^9, 3.859218809992529*^9}, 3.859245622534225*^9, {
   3.859245709336193*^9, 3.8592457109261103`*^9}, 3.859411640190054*^9, 
   3.859592376546376*^9, 3.8629704078596773`*^9, 3.8629710440571423`*^9, 
   3.8652947389132032`*^9, 3.865295220761862*^9, 3.868400642661127*^9, 
   3.870021488172928*^9, 3.870100830943613*^9, 3.906561816721931*^9, 
   3.906869948719018*^9, {3.906870424414591*^9, 3.906870428570133*^9}, {
   3.90687118504716*^9, 3.9068711876114883`*^9}, 3.9068713803977222`*^9, 
   3.906871416689292*^9, {3.906901847655851*^9, 3.906901873428322*^9}, 
   3.906902301241581*^9, 3.9069023477220488`*^9, 3.90690373093922*^9, 
   3.9069039634354353`*^9, 3.906904214445237*^9, 3.9069046227047367`*^9, 
   3.90690468276477*^9, 3.906905395061198*^9, 3.906905517462173*^9, 
   3.906905653159647*^9, 3.9069059165791283`*^9, 3.9069061897564173`*^9, {
   3.906906899860174*^9, 3.9069069019237537`*^9}, 3.906907287406105*^9, 
   3.906909502039974*^9, 3.9069102860611362`*^9, 3.906910422027721*^9, 
   3.906969409853993*^9, {3.90697119419016*^9, 3.906971196093993*^9}, 
   3.906974845705626*^9, 3.906977085297831*^9, 3.907926909732358*^9, 
   3.90862369620779*^9, 3.9086300736456423`*^9, 3.9086308476178827`*^9, 
   3.908631021443141*^9, 3.945503220074404*^9, 3.945503710180092*^9, 
   3.945504440304408*^9, {3.945529051299225*^9, 3.945529077869603*^9}, 
   3.945529111458413*^9, 3.9455291804525433`*^9, 3.945529347694311*^9, 
   3.945605807379519*^9, 3.945607003311631*^9, 3.945607290293367*^9, 
   3.9456861435651913`*^9, 3.945956175126358*^9, 3.945956469905463*^9},
 CellLabel->
  "Out[2713]=",ExpressionUUID->"816e4a70-237d-4949-9929-00240f397cb9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg3", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg3", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellLabel->
  "In[2714]:=",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   RowBox[{
    SqrtBox[
     FractionBox["1", 
      RowBox[{"beta", " ", "s"}]]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"beta", " ", "t"}], "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["t", "2"]}]}]]}]}], 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.8592183697821617`*^9}, 
   3.859218812167489*^9, 3.859245622565897*^9, 3.859245712892708*^9, 
   3.8594116402334538`*^9, 3.8595923765700397`*^9, 3.862970410819366*^9, 
   3.862971044090597*^9, 3.865294738944734*^9, 3.865295220782933*^9, 
   3.8684006426822977`*^9, 3.870021488191881*^9, 3.870100830967243*^9, 
   3.90656182127722*^9, 3.906869951958902*^9, 3.90687043088925*^9, 
   3.906871189876726*^9, 3.906871380425003*^9, 3.90687141671946*^9, 
   3.9069018767112923`*^9, 3.9069023012648153`*^9, 3.906902347745401*^9, 
   3.9069037309654207`*^9, 3.9069039634607277`*^9, 3.9069042144696083`*^9, 
   3.906904622730879*^9, 3.9069046827915697`*^9, 3.906905395079945*^9, 
   3.906905517480229*^9, 3.906905653191882*^9, 3.906905916612756*^9, 
   3.9069061897782087`*^9, 3.9069069039204273`*^9, 3.906907287453485*^9, 
   3.9069095020645523`*^9, 3.906910286086069*^9, 3.90691042205138*^9, 
   3.906969409874073*^9, 3.906971205132641*^9, 3.906974845733015*^9, 
   3.9069770853520403`*^9, 3.9079269097493343`*^9, 3.9086236962272587`*^9, 
   3.908630076264122*^9, 3.908630847642447*^9, 3.9086310214641457`*^9, 
   3.945503220088881*^9, 3.945503713456542*^9, 3.945504440315364*^9, {
   3.945529051314769*^9, 3.945529077886001*^9}, 3.945529111478001*^9, 
   3.9455291804695597`*^9, 3.945529347708375*^9, 3.9456058073959827`*^9, 
   3.945607003328743*^9, 3.9456072903154373`*^9, 3.9456861435720053`*^9, 
   3.945956175148529*^9, 3.9459564699101562`*^9},
 CellLabel->
  "Out[2714]=",ExpressionUUID->"d1987797-48ee-4d23-951f-f55030d63259"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", 
  RowBox[{"Simplify", "[", "pstarsg3", "]"}]}]], "Input",
 CellChangeTimes->{3.85921837613864*^9},
 NumberMarks->False,
 CellLabel->
  "In[2715]:=",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],

Cell[BoxData[
 FractionBox[
  RowBox[{"beta", "-", 
   RowBox[{"k", " ", "t"}], "-", 
   SqrtBox[
    RowBox[{"beta", " ", "s", " ", "t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
  RowBox[{"beta", "-", 
   RowBox[{"k", " ", "t"}]}]]], "Output",
 CellChangeTimes->{
  3.8592183715487328`*^9, 3.859218813942348*^9, 3.859245622578669*^9, 
   3.859245714832464*^9, 3.859411640272045*^9, 3.859592376599367*^9, 
   3.8629704129475613`*^9, 3.862971044142618*^9, 3.865294739000161*^9, 
   3.8652952208405113`*^9, 3.8684006427248087`*^9, 3.870021488234681*^9, 
   3.870100831014192*^9, 3.906561823659375*^9, 3.906869954133665*^9, 
   3.906870438745261*^9, 3.9068711928709087`*^9, 3.906871380483183*^9, 
   3.9068714167776747`*^9, 3.9069018788474293`*^9, 3.9069023012948103`*^9, 
   3.9069023477735147`*^9, 3.906903730993531*^9, 3.906903963489287*^9, 
   3.906904214498919*^9, 3.906904622759942*^9, 3.90690468282078*^9, 
   3.906905395109949*^9, 3.906905517514262*^9, 3.906905653222473*^9, 
   3.906905916647573*^9, 3.906906189812997*^9, 3.906906906092238*^9, 
   3.9069072875010777`*^9, 3.906909502093712*^9, 3.906910286119297*^9, 
   3.906910422081115*^9, 3.906969409903758*^9, 3.906971206737833*^9, 
   3.9069748457632847`*^9, 3.906977085387821*^9, 3.9079269097711*^9, 
   3.908623696250485*^9, 3.9086300849636507`*^9, 3.908630847667554*^9, 
   3.908631021489449*^9, 3.945503220107492*^9, 3.945503715192913*^9, 
   3.945504440334032*^9, {3.945529051333344*^9, 3.9455290779045277`*^9}, 
   3.945529111497817*^9, 3.945529180487769*^9, 3.945529347727104*^9, 
   3.945605807416451*^9, 3.945607003347677*^9, 3.945607290334159*^9, 
   3.945686143592841*^9, 3.945956175169084*^9, 3.945956469931551*^9},
 CellLabel->
  "Out[2715]=",ExpressionUUID->"f4dd5881-dbba-43ca-8ca6-c81ab77b3cf1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "pstarsg3", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[2716]:=",ExpressionUUID->"a01fcee5-71a1-44a9-97e4-40525aea864f"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.906901896152644*^9, 3.90690230136829*^9, 3.906902347845562*^9, 
   3.906903731067584*^9, 3.906903963563673*^9, 3.9069042145743237`*^9, 
   3.90690462283447*^9, 3.9069046828945503`*^9, 3.906905395186555*^9, 
   3.9069055175979757`*^9, 3.9069056532988033`*^9, 3.906905916725411*^9, 
   3.9069061898907347`*^9, 3.906906907784669*^9, 3.906907287625143*^9, 
   3.906909502168819*^9, 3.906910286195005*^9, 3.9069104221565533`*^9, 
   3.906969409979178*^9, 3.906971208548716*^9, 3.90697484583786*^9, 
   3.906977085467828*^9, 3.907926909834371*^9, 3.908623696318368*^9, 
   3.908630090481225*^9, 3.908630847737536*^9, 3.908631021559106*^9, 
   3.945503220159618*^9, 3.94550371689118*^9, 3.945504440388212*^9, {
   3.94552905138475*^9, 3.9455290779568663`*^9}, 3.945529111549809*^9, 
   3.945529180539111*^9, 3.94552934777831*^9, 3.9456058074722843`*^9, 
   3.945607003402313*^9, 3.945607290390335*^9, 3.945686143646614*^9, 
   3.945956179413147*^9, 3.945956469989657*^9},
 CellLabel->
  "Out[2716]=",ExpressionUUID->"37cd0381-c809-4b19-9d8b-28d0d8a2d035"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814813717326144*^9, 3.814813721626821*^9}, {
   3.814813755733878*^9, 3.814813757207923*^9}, {3.814813804237296*^9, 
   3.814813804860663*^9}, 3.859218385798154*^9},
 CellLabel->
  "In[2717]:=",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\n", 
  RowBox[{"cj3bar", " ", "=", 
   RowBox[{"d", " ", "-", " ", "pstarsg3"}]}]}]], "Input",
 CellChangeTimes->{{3.814813794785376*^9, 3.814813812515373*^9}, {
  3.814817093456317*^9, 3.814817099151165*^9}, {3.859218448396122*^9, 
  3.859218452232811*^9}},
 CellLabel->
  "In[2718]:=",ExpressionUUID->"38f490b6-b786-466d-865d-1840daa5862f"],

Cell[BoxData[
 RowBox[{"d", "-", 
  FractionBox[
   RowBox[{"beta", "-", 
    RowBox[{"k", " ", "t"}], "-", 
    SqrtBox[
     RowBox[{"beta", " ", "s", " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
   RowBox[{"beta", "-", 
    RowBox[{"k", " ", "t"}]}]]}]], "Output",
 CellChangeTimes->{
  3.8148138256599627`*^9, 3.814814375360169*^9, 3.814815383142872*^9, 
   3.814815779654858*^9, 3.814817102853572*^9, 3.816988572781451*^9, 
   3.859218453120474*^9, 3.8592188160538597`*^9, 3.8592456226063843`*^9, 
   3.859245718628879*^9, 3.859411640316774*^9, 3.859592376630365*^9, 
   3.862970415652688*^9, 3.862971044171364*^9, 3.865294739026556*^9, 
   3.8652952208653517`*^9, 3.868400642752194*^9, 3.870021488254429*^9, 
   3.870100831037099*^9, 3.9065618270924788`*^9, 3.906869956467291*^9, 
   3.906870440828779*^9, 3.9068711954011993`*^9, 3.906871380502184*^9, 
   3.9068714168051567`*^9, 3.906901937000766*^9, 3.9069023013853893`*^9, 
   3.906902347862157*^9, 3.906903731087336*^9, 3.9069039635814123`*^9, 
   3.906904214591509*^9, 3.906904622853067*^9, 3.9069046829141693`*^9, 
   3.9069053952076406`*^9, 3.906905517623496*^9, 3.906905653319562*^9, 
   3.906905916747759*^9, 3.906906189911961*^9, 3.906906910775405*^9, 
   3.906907287657843*^9, 3.906909502186224*^9, 3.906910286212612*^9, 
   3.906910422172473*^9, 3.906969409997364*^9, 3.9069712132696*^9, 
   3.906974845857173*^9, 3.906977085498293*^9, 3.9079269098484917`*^9, 
   3.9086236963357143`*^9, 3.908630094783347*^9, 3.9086308477689257`*^9, 
   3.908631021575137*^9, 3.945503220171562*^9, 3.945503719794537*^9, 
   3.945504440399271*^9, {3.945529051397643*^9, 3.945529077971409*^9}, 
   3.945529111558016*^9, 3.945529180550645*^9, 3.945529347790139*^9, 
   3.945605807486664*^9, 3.945607003417149*^9, 3.945607290407592*^9, 
   3.945686143658763*^9, 3.94595618321706*^9, 3.945956469999044*^9},
 CellLabel->
  "Out[2718]=",ExpressionUUID->"69712f95-cb39-4975-a059-767b6effd34a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cj3bar", " ", "=", 
  RowBox[{"Simplify", "[", "cj3bar", "]"}]}]], "Input",
 CellChangeTimes->{3.859218459987671*^9},
 NumberMarks->False,
 CellLabel->
  "In[2719]:=",ExpressionUUID->"fd81ac91-4720-4240-b602-6af9690887b2"],

Cell[BoxData[
 RowBox[{"d", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "beta"}], "+", 
    RowBox[{"k", " ", "t"}], "+", 
    SqrtBox[
     RowBox[{"beta", " ", "s", " ", "t", " ", 
      RowBox[{"(", 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
   RowBox[{"beta", "-", 
    RowBox[{"k", " ", "t"}]}]]}]], "Output",
 CellChangeTimes->{{3.859218454599646*^9, 3.859218461001204*^9}, 
   3.859218817801306*^9, 3.859245622631111*^9, 3.859245721078293*^9, 
   3.859411640355451*^9, 3.859592376660643*^9, 3.862970417583186*^9, 
   3.8629710442018023`*^9, 3.8652947390505*^9, 3.865295220891328*^9, 
   3.868400642780363*^9, 3.8700214882767677`*^9, 3.870100831060734*^9, 
   3.9065618322587557`*^9, 3.906869958529709*^9, 3.906870442947978*^9, 
   3.906871197376918*^9, 3.90687138053034*^9, 3.906871416834485*^9, 
   3.906901942141608*^9, 3.9069023014059467`*^9, 3.906902347882918*^9, 
   3.906903731110965*^9, 3.906903963602985*^9, 3.9069042146133537`*^9, 
   3.9069046228764343`*^9, 3.9069046829361553`*^9, 3.906905395230297*^9, 
   3.906905517646514*^9, 3.9069056533426447`*^9, 3.906905916771367*^9, 
   3.90690618993775*^9, 3.90690691267614*^9, 3.9069072876931543`*^9, 
   3.906909502208185*^9, 3.9069102862346888`*^9, 3.90691042219466*^9, 
   3.9069694100195093`*^9, 3.90697121567047*^9, 3.906974845880143*^9, 
   3.906977085526806*^9, 3.907926909863543*^9, 3.90862369635931*^9, 
   3.9086300963078957`*^9, 3.908630847787039*^9, 3.908631021597952*^9, 
   3.945503220184444*^9, 3.945503724044479*^9, 3.945504440412339*^9, {
   3.9455290514138308`*^9, 3.9455290779848833`*^9}, 3.9455291115721416`*^9, 
   3.945529180564303*^9, 3.9455293478049107`*^9, 3.9456058075022984`*^9, 
   3.945607003433899*^9, 3.94560729042461*^9, 3.945686143672915*^9, 
   3.945956186257016*^9, 3.9459564700137367`*^9},
 CellLabel->
  "Out[2719]=",ExpressionUUID->"5cd0b387-a66b-4dec-9216-3063198f2af2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"probr3", " ", "=", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"cj3bar", "-", "0"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"cjmax", "-", "0"}], ")"}]}], ")"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814813832821535*^9, 3.814813850271888*^9}, {
  3.906871201243878*^9, 3.906871203095578*^9}},
 CellLabel->
  "In[2720]:=",ExpressionUUID->"f4844d6e-2f64-461d-95b8-15550198b3df"],

Cell[BoxData[
 FractionBox[
  RowBox[{"d", "+", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "beta"}], "+", 
     RowBox[{"k", " ", "t"}], "+", 
     SqrtBox[
      RowBox[{"beta", " ", "s", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]}], "cjmax"]], "Output",
 CellChangeTimes->{
  3.814813852584427*^9, 3.81481438523134*^9, 3.8148153923417253`*^9, 
   3.814815782574665*^9, 3.8148171088884773`*^9, 3.816988575326819*^9, {
   3.859218821550819*^9, 3.859218831214369*^9}, 3.8592456226675367`*^9, 
   3.859245735861554*^9, 3.859411640368724*^9, 3.8595923766761017`*^9, 
   3.8629704198891068`*^9, 3.862971044213809*^9, 3.865294739059229*^9, 
   3.865295220901026*^9, 3.868400642785626*^9, 3.870021488283104*^9, 
   3.870100831068039*^9, 3.906561838749086*^9, 3.906869960614148*^9, 
   3.906870445429523*^9, 3.9068712046142797`*^9, 3.9068713805451*^9, 
   3.906871416843521*^9, 3.90690194386974*^9, 3.906902301421213*^9, 
   3.906902347891241*^9, 3.9069037311199102`*^9, 3.90690396361204*^9, 
   3.9069042146316023`*^9, 3.9069046228897667`*^9, 3.906904682945785*^9, 
   3.906905395240552*^9, 3.906905517670806*^9, 3.906905653353389*^9, 
   3.906905916782165*^9, 3.906906189949045*^9, 3.90690691458799*^9, 
   3.906907287709285*^9, 3.906909502217205*^9, 3.906910286244252*^9, 
   3.9069104222093163`*^9, 3.906969410037581*^9, 3.906971217639922*^9, 
   3.906974845890874*^9, 3.9069770855428*^9, 3.90792690986967*^9, 
   3.908623696392498*^9, 3.908630098146834*^9, 3.908630847792856*^9, 
   3.908631021626478*^9, 3.9455032201870337`*^9, 3.945503726055112*^9, 
   3.945504440415621*^9, {3.945529051416946*^9, 3.945529077988244*^9}, 
   3.945529111579644*^9, 3.9455291805674877`*^9, 3.945529347808197*^9, 
   3.945605807506199*^9, 3.945607003438017*^9, 3.9456072904318743`*^9, 
   3.945686143676078*^9, 3.9459561889546432`*^9, 3.945956470019668*^9},
 CellLabel->
  "Out[2720]=",ExpressionUUID->"5e6c48b2-a50c-48ba-a5c7-7e2d754e5692"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"probr3", " ", "=", 
  RowBox[{"FullSimplify", "[", "probr3", "]"}]}]], "Input",
 CellChangeTimes->{3.906971230209241*^9},
 NumberMarks->False,
 CellLabel->
  "In[2721]:=",ExpressionUUID->"873b28af-b0f8-414b-adc6-b1d915c77fb8"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "d", "+", 
   SqrtBox[
    FractionBox[
     RowBox[{"beta", " ", "s", " ", "t"}], 
     RowBox[{"beta", "-", 
      RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]], "Output",
 CellChangeTimes->{{3.906971225462997*^9, 3.906971231564808*^9}, 
   3.9069748459734573`*^9, 3.9069770856321087`*^9, 3.907926909940534*^9, 
   3.908623696468028*^9, 3.908630100250601*^9, 3.9086308478698597`*^9, 
   3.908631021703079*^9, 3.945503220245564*^9, 3.945503728417459*^9, 
   3.945504440472683*^9, {3.945529051474112*^9, 3.945529078044664*^9}, 
   3.945529111637241*^9, 3.9455291806249437`*^9, 3.945529347864847*^9, 
   3.945605807568445*^9, 3.945607290489347*^9, 3.945686143733341*^9, 
   3.945956191996601*^9, 3.945956470084091*^9},
 CellLabel->
  "Out[2721]=",ExpressionUUID->"6307a148-9197-4b84-bbb5-3cfdefe72578"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"UPsg3", " ", "=", " ", 
   RowBox[{
    RowBox[{"probr3", "*", 
     RowBox[{"(", "Node6P", ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "probr3"}], ")"}], "*", 
     RowBox[{"(", "Node3P", ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.8148140064892673`*^9, 3.814814030919105*^9}, 
   3.814814169798501*^9},
 CellLabel->
  "In[2722]:=",ExpressionUUID->"58489f06-8ec6-4a94-a4f2-ae51861d8752"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "d", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "d", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "s"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}], 
           RowBox[{"beta", " ", "s"}]]]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"t", " ", 
           RowBox[{"(", 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], ")"}]}], 
          RowBox[{"beta", " ", "s"}]]]}], 
       SqrtBox[
        FractionBox[
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}], ")"}]}], 
         RowBox[{"beta", " ", "s"}]]]], "-", 
      FractionBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "t"}], "+", 
          SqrtBox[
           FractionBox[
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}], ")"}]}], 
            RowBox[{"beta", " ", "s"}]]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"t", " ", 
               RowBox[{"(", 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}], ")"}]}], 
              RowBox[{"beta", " ", "s"}]]]}], 
           SqrtBox[
            FractionBox[
             RowBox[{"t", " ", 
              RowBox[{"(", 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}], ")"}]}], 
             RowBox[{"beta", " ", "s"}]]]]}], ")"}]}], "beta"]}], ")"}]}], 
   "cjmax"]}]], "Output",
 CellChangeTimes->{
  3.814814035671756*^9, 3.814814415744727*^9, 3.814815396140044*^9, 
   3.814815800885038*^9, 3.81481711636336*^9, 3.816988577642914*^9, 
   3.8592188331293097`*^9, 3.859245622682724*^9, 3.859245745105835*^9, 
   3.859411640406485*^9, 3.859592376703136*^9, 3.8629704223038397`*^9, 
   3.862971044239809*^9, 3.865294739077754*^9, 3.865295220927147*^9, 
   3.86840064281301*^9, 3.870021488298375*^9, 3.870100831086912*^9, 
   3.906561841334927*^9, 3.906869964335617*^9, 3.906870448262162*^9, 
   3.906871206841813*^9, 3.906871380556319*^9, 3.906871416871275*^9, 
   3.906901949674101*^9, 3.90690230142964*^9, 3.9069023479066763`*^9, 
   3.9069037311379433`*^9, 3.9069039636318913`*^9, 3.906904214641273*^9, 
   3.906904622907083*^9, 3.906904682965138*^9, 3.9069053952594223`*^9, 
   3.906905517681172*^9, 3.90690565337272*^9, 3.906905916803358*^9, 
   3.90690618996841*^9, 3.906906916826296*^9, 3.906907287740048*^9, 
   3.906909502232991*^9, 3.906910286260898*^9, 3.90691042221905*^9, 
   3.906969410047262*^9, 3.9069712428619347`*^9, 3.9069748459841757`*^9, 
   3.906977085648294*^9, 3.907926909944213*^9, 3.908623696472233*^9, 
   3.908630101682024*^9, 3.908630847877515*^9, 3.908631021708947*^9, 
   3.9455032202485113`*^9, 3.945503730251363*^9, 3.945504440483177*^9, {
   3.945529051478569*^9, 3.9455290780484447`*^9}, 3.945529111641*^9, 
   3.945529180629005*^9, 3.9455293478683243`*^9, 3.945605807572103*^9, 
   3.945607290493375*^9, 3.945686143736668*^9, 3.945956194576926*^9, 
   3.945956470089129*^9},
 CellLabel->
  "Out[2722]=",ExpressionUUID->"fdd66ae9-edae-4513-bb1e-304a2c7b1fc3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UPsg3", " ", "=", 
  RowBox[{"Simplify", "[", "UPsg3", "]"}]}]], "Input",
 CellChangeTimes->{3.859218841536777*^9},
 NumberMarks->False,
 CellLabel->
  "In[2723]:=",ExpressionUUID->"eb868d50-f682-4c89-ac1c-84a04caf6123"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "d"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", "cjmax", "+", "d", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "d", "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"t", "-", 
       SqrtBox[
        FractionBox[
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}], ")"}]}], 
         RowBox[{"beta", " ", "s"}]]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "beta"}], "+", 
       RowBox[{"k", " ", "t"}], "+", 
       SqrtBox[
        RowBox[{"beta", " ", "s", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}], ")"}]}]]}], ")"}]}], 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}], ")"}]}], "s"]]]}], "cjmax"]], "Output",
 CellChangeTimes->{{3.859218836415283*^9, 3.859218843334442*^9}, 
   3.859245622706592*^9, 3.859245748280896*^9, 3.859411640513246*^9, 
   3.859592376823676*^9, 3.862970424925726*^9, 3.862971044825294*^9, 
   3.8652947396476107`*^9, 3.865295221559412*^9, 3.868400643367626*^9, 
   3.8700214888384113`*^9, 3.870100831631352*^9, 3.906561844582788*^9, 
   3.906869967311035*^9, 3.9068704513209963`*^9, 3.906871209960971*^9, 
   3.906871380962188*^9, 3.906871417268529*^9, 3.9069019521410303`*^9, 
   3.906902301583268*^9, 3.906902348060107*^9, 3.9069037312979794`*^9, 
   3.906903963790389*^9, 3.906904214799672*^9, 3.906904623064355*^9, 
   3.906904683121107*^9, 3.906905395421341*^9, 3.906905517845647*^9, 
   3.906905653532958*^9, 3.9069059169668007`*^9, 3.906906190132297*^9, 
   3.906906919488853*^9, 3.906907287997196*^9, 3.906909502393238*^9, 
   3.90691028642203*^9, 3.906910422380542*^9, 3.906969410206112*^9, 
   3.906971246291175*^9, 3.9069748461340103`*^9, 3.906977085803935*^9, 
   3.907926910093626*^9, 3.90862369661602*^9, 3.9086301039243717`*^9, 
   3.908630848021559*^9, 3.908631021851712*^9, 3.945503220367334*^9, 
   3.9455037333978577`*^9, 3.945504440596923*^9, {3.945529051590622*^9, 
   3.9455290781600246`*^9}, 3.945529111754929*^9, 3.9455291807390347`*^9, 
   3.945529347984007*^9, 3.94560580769379*^9, 3.945607290605303*^9, 
   3.945686143851316*^9, 3.945956197916605*^9, 3.945956470214477*^9},
 CellLabel->
  "Out[2723]=",ExpressionUUID->"ce1ece21-ecdd-4379-813a-819d2c36b2c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "figure", " ", "out", " ", "the", " ", "offer", " ", "the", 
    " ", "prez", " ", "will", " ", "make", " ", "based", " ", "on", " ", 
    "their", " ", "utility", " ", "funciton"}], "*)"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "d"], "UPsg3"}], " ", "\[Equal]", " ", 
       "0"}], ",", "d"}], "]"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814814253044071*^9, 3.8148142933377953`*^9}, {
  3.945503744818927*^9, 3.945503752046871*^9}},
 CellLabel->
  "In[2724]:=",ExpressionUUID->"86b16519-51c2-4dee-a398-55d317809c5d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"d", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"2", " ", "k", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", 
          SuperscriptBox["t", "3"]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"beta", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
     RowBox[{"2", " ", "beta"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.814814296232203*^9, 3.814814446231292*^9, 3.814815412033214*^9, 
   3.814815821950338*^9, 3.814817135365472*^9, 3.816988594049666*^9, 
   3.859218858273978*^9, 3.859245622718996*^9, 3.8592457520246677`*^9, 
   3.859411640551201*^9, 3.859592376858734*^9, 3.862970427525909*^9, 
   3.8629710449593153`*^9, 3.865294739779676*^9, 3.86529522169062*^9, 
   3.8684006434870167`*^9, 3.8700214889569817`*^9, 3.870100831753319*^9, 
   3.906561847847105*^9, 3.906869973806513*^9, 3.90687045376938*^9, 
   3.906871213158471*^9, 3.906871381527239*^9, 3.906871417826222*^9, 
   3.9069019557549686`*^9, 3.906902301800281*^9, 3.906902348272962*^9, 
   3.906903731514834*^9, 3.9069039640087137`*^9, 3.906904215016528*^9, 
   3.90690462327861*^9, 3.906904683333312*^9, 3.9069053956423283`*^9, 
   3.9069055180696077`*^9, 3.906905653751088*^9, 3.9069059171867447`*^9, 
   3.906906190353551*^9, 3.9069069219687366`*^9, 3.906907288349015*^9, 
   3.906909502611105*^9, 3.906910286641947*^9, 3.90691042260236*^9, 
   3.906969410427404*^9, 3.906971249325564*^9, 3.906974846275958*^9, 
   3.9069770859525013`*^9, 3.9079269102257566`*^9, 3.90862369674994*^9, 
   3.9086301062135267`*^9, 3.9086308481584463`*^9, 3.908631021986508*^9, 
   3.9455032204795113`*^9, 3.945503735915908*^9, 3.945504440707459*^9, {
   3.9455290516983023`*^9, 3.945529078266128*^9}, 3.945529111863089*^9, 
   3.945529180845031*^9, 3.945529348090433*^9, 3.945605807811165*^9, 
   3.94560729071299*^9, 3.945686143959203*^9, 3.945956214053628*^9, 
   3.9459564703351192`*^9},
 CellLabel->
  "Out[2724]=",ExpressionUUID->"0a139bf8-b9d5-4baf-bf7b-c5e89e85242d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"dstarsg3", " ", "=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "k"}], " ", "t"}], "-", 
     RowBox[{"3", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{
         SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "+", 
     RowBox[{"2", " ", "k", " ", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", 
         SuperscriptBox["t", "3"]}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "+", 
     RowBox[{"beta", " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", "cjmax", "+", 
        RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
    RowBox[{"2", " ", "beta"}]]}]}]], "Input",
 CellChangeTimes->{{3.814814459784252*^9, 3.814814466272294*^9}, 
   3.8148158364727507`*^9, 3.814817142968319*^9, 3.859218863170351*^9, 
   3.862970433643982*^9, 3.906561858034543*^9, 3.906869982365945*^9, 
   3.9068712233118343`*^9, 3.906901961561572*^9, 3.9069712576925383`*^9},
 CellLabel->
  "In[2725]:=",ExpressionUUID->"350b2bb9-2f22-4319-ae27-91d6c48abd91"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "k"}], " ", "t"}], "-", 
   RowBox[{"3", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"2", " ", "k", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "s", " ", 
       SuperscriptBox["t", "3"]}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]]}], "+", 
   RowBox[{"beta", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "cjmax", "+", 
      RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
  RowBox[{"2", " ", "beta"}]]], "Output",
 CellChangeTimes->{
  3.814814468449498*^9, 3.814815417032033*^9, 3.81481583804982*^9, 
   3.814817144813624*^9, 3.816988602191031*^9, 3.8592188641178303`*^9, 
   3.859245622743764*^9, 3.859245755585855*^9, 3.859411640562468*^9, 
   3.859592376888592*^9, 3.862970434687174*^9, 3.862971044971877*^9, 
   3.865294739792593*^9, 3.865295221779031*^9, 3.868400643493473*^9, 
   3.87002148896283*^9, 3.870100831761113*^9, 3.906561859628173*^9, 
   3.9068699831670113`*^9, 3.90687045620564*^9, 3.9068712242939157`*^9, 
   3.906871381562731*^9, 3.90687141786653*^9, 3.906901962618627*^9, 
   3.906902301808817*^9, 3.9069023482817917`*^9, 3.906903731526499*^9, 
   3.906903964017947*^9, 3.9069042150260277`*^9, 3.906904623288134*^9, 
   3.906904683342957*^9, 3.90690539565326*^9, 3.906905518080306*^9, 
   3.9069056537619553`*^9, 3.9069059171981373`*^9, 3.906906190365239*^9, 
   3.906906924319112*^9, 3.906907288404813*^9, 3.9069095026205463`*^9, 
   3.90691028665201*^9, 3.906910422612508*^9, 3.9069694104374228`*^9, 
   3.906971260476372*^9, 3.9069748463075037`*^9, 3.906977085968899*^9, 
   3.9079269102472353`*^9, 3.9086236967547626`*^9, 3.9086301100521793`*^9, 
   3.9086308481644487`*^9, 3.908631021992606*^9, 3.945503220482606*^9, {
   3.9455037384378557`*^9, 3.945503756592801*^9}, 3.945503888660883*^9, 
   3.945504440721197*^9, {3.945529051702003*^9, 3.945529078270177*^9}, 
   3.945529111869811*^9, 3.945529180849143*^9, 3.945529348094811*^9, 
   3.945605807815173*^9, 3.9456072907184467`*^9, 3.945686143964747*^9, 
   3.945956217946827*^9, 3.945956470340097*^9},
 CellLabel->
  "Out[2725]=",ExpressionUUID->"7ee29f8f-384f-497e-a67a-059120a3ae7e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814815594337995*^9, 3.8148156035598183`*^9}},
 CellLabel->
  "In[2726]:=",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dstarsg3", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"dstarsg3", " ", ">", " ", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg3", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg3"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Probr3", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"probr3", " ", ">", " ", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"probr3", " ", "<", " ", "0"}], ",", "0", ",", "probr3"}], 
     "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.814814834029901*^9, 3.814814900521966*^9}, {
  3.906969367634275*^9, 3.906969368108569*^9}},
 CellLabel->
  "In[2727]:=",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"2", " ", "k", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", 
          SuperscriptBox["t", "3"]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]]}], "+", 
      RowBox[{"beta", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
     RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814814903701456*^9, 3.8148154584783792`*^9, 3.814815910712919*^9, 
   3.814817228411625*^9, 3.816988628786416*^9, 3.85921894223663*^9, 
   3.859245622932045*^9, 3.8592458013891373`*^9, 3.859411641197456*^9, 
   3.859592377522831*^9, 3.8629704731138887`*^9, 3.862971046195992*^9, 
   3.865294741109359*^9, 3.8652952229940577`*^9, 3.868400644695941*^9, 
   3.870021490044826*^9, 3.870100832876103*^9, 3.9065618798440313`*^9, 
   3.9068700005881844`*^9, 3.906870475344503*^9, 3.906871241499263*^9, 
   3.906871383485462*^9, 3.906871419783434*^9, 3.906902046082386*^9, 
   3.906902301826211*^9, 3.90690234829919*^9, 3.906903731548111*^9, 
   3.9069039640383987`*^9, 3.906904215045638*^9, 3.906904623307743*^9, 
   3.906904683362589*^9, 3.906905395674798*^9, 3.906905518102376*^9, 
   3.9069056537832603`*^9, 3.906905917221161*^9, 3.906906190388976*^9, 
   3.906906927317284*^9, 3.906907288440173*^9, 3.906909502639235*^9, 
   3.906910286671447*^9, 3.906910422632615*^9, 3.906969410456902*^9, 
   3.906971283504259*^9, 3.906974846327838*^9, 3.9069770860007544`*^9, 
   3.9079269102615137`*^9, 3.908623696772509*^9, 3.90863012766472*^9, 
   3.9086308481804323`*^9, 3.908631022009965*^9, 3.9455032204955873`*^9, 
   3.945503892255134*^9, 3.945504440736833*^9, {3.945529051714736*^9, 
   3.945529078286544*^9}, 3.945529111879702*^9, 3.945529180862125*^9, 
   3.94552934810751*^9, 3.945605807829184*^9, 3.945607290734828*^9, 
   3.945686143983021*^9, 3.945956225344144*^9, 3.9459564703496923`*^9},
 CellLabel->
  "Out[2727]=",ExpressionUUID->"368e9c9f-e383-478c-b3bb-83ec0dfcd2c2"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "d", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "cjmax"], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"probr3", "<", "0"}], ",", "0", ",", "probr3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814814903701456*^9, 3.8148154584783792`*^9, 3.814815910712919*^9, 
   3.814817228411625*^9, 3.816988628786416*^9, 3.85921894223663*^9, 
   3.859245622932045*^9, 3.8592458013891373`*^9, 3.859411641197456*^9, 
   3.859592377522831*^9, 3.8629704731138887`*^9, 3.862971046195992*^9, 
   3.865294741109359*^9, 3.8652952229940577`*^9, 3.868400644695941*^9, 
   3.870021490044826*^9, 3.870100832876103*^9, 3.9065618798440313`*^9, 
   3.9068700005881844`*^9, 3.906870475344503*^9, 3.906871241499263*^9, 
   3.906871383485462*^9, 3.906871419783434*^9, 3.906902046082386*^9, 
   3.906902301826211*^9, 3.90690234829919*^9, 3.906903731548111*^9, 
   3.9069039640383987`*^9, 3.906904215045638*^9, 3.906904623307743*^9, 
   3.906904683362589*^9, 3.906905395674798*^9, 3.906905518102376*^9, 
   3.9069056537832603`*^9, 3.906905917221161*^9, 3.906906190388976*^9, 
   3.906906927317284*^9, 3.906907288440173*^9, 3.906909502639235*^9, 
   3.906910286671447*^9, 3.906910422632615*^9, 3.906969410456902*^9, 
   3.906971283504259*^9, 3.906974846327838*^9, 3.9069770860007544`*^9, 
   3.9079269102615137`*^9, 3.908623696772509*^9, 3.90863012766472*^9, 
   3.9086308481804323`*^9, 3.908631022009965*^9, 3.9455032204955873`*^9, 
   3.945503892255134*^9, 3.945504440736833*^9, {3.945529051714736*^9, 
   3.945529078286544*^9}, 3.945529111879702*^9, 3.945529180862125*^9, 
   3.94552934810751*^9, 3.945605807829184*^9, 3.945607290734828*^9, 
   3.945686143983021*^9, 3.945956225344144*^9, 3.945956470351879*^9},
 CellLabel->
  "Out[2728]=",ExpressionUUID->"adb737da-37ef-4ae0-b4b6-19d771547407"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"postprobr3", " ", "=", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "Dstarsg3", "+", 
      SqrtBox[
       FractionBox[
        RowBox[{"beta", " ", "s", " ", "t"}], 
        RowBox[{"beta", "-", 
         RowBox[{"k", " ", "t"}]}]]]}], "cjmax"]}], "\[IndentingNewLine]", 
   RowBox[{"PostProbr3", " ", "=", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"postprobr3", " ", ">", " ", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"postprobr3", " ", "<", " ", "0"}], ",", "0", ",", 
        "postprobr3"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.906904466209279*^9, 3.906904493172243*^9}, {
  3.906904577524393*^9, 3.906904578409568*^9}, {3.906906930460724*^9, 
  3.906906930659778*^9}, {3.90696937261829*^9, 3.906969373224766*^9}},
 CellLabel->
  "In[2729]:=",ExpressionUUID->"225e7edc-d72d-427a-bd5f-091dd9aa83b6"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "cjmax"], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox[
     FractionBox[
      RowBox[{"beta", " ", "s", " ", "t"}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]]], "+", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "k"}], " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], "+", 
         RowBox[{"2", " ", "k", " ", 
          SqrtBox[
           FractionBox[
            RowBox[{"beta", " ", "s", " ", 
             SuperscriptBox["t", "3"]}], 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}]]]}], "+", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
        RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
     "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.906904623345923*^9, 3.906904683401806*^9, 3.9069053957173843`*^9, 
   3.906905518147175*^9, 3.906905653827936*^9, 3.906905917267778*^9, 
   3.906906190436268*^9, 3.906906931619618*^9, 3.906907288496587*^9, 
   3.906909502681822*^9, 3.9069102867100363`*^9, 3.906910422672291*^9, 
   3.906969410482573*^9, 3.906971294668805*^9, 3.9069748463490553`*^9, 
   3.906977086031803*^9, 3.907926910266316*^9, 3.908623696778047*^9, 
   3.908630131864141*^9, 3.9086308482010727`*^9, 3.908631022018458*^9, 
   3.9455032204991083`*^9, 3.945503896628557*^9, 3.94550444074086*^9, {
   3.945529051727633*^9, 3.945529078299416*^9}, 3.945529111892954*^9, 
   3.9455291808666763`*^9, 3.9455293481125183`*^9, 3.9456058078337727`*^9, 
   3.945607290751823*^9, 3.945686143996352*^9, 3.945956325260716*^9, 
   3.945956470361973*^9},
 CellLabel->
  "Out[2729]=",ExpressionUUID->"c7ffdfaf-f133-4ed9-95b8-9b63d37109ef"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "cjmax"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]], "+", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
          "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], "]"}]}],
   "]"}]], "Output",
 CellChangeTimes->{
  3.906904623345923*^9, 3.906904683401806*^9, 3.9069053957173843`*^9, 
   3.906905518147175*^9, 3.906905653827936*^9, 3.906905917267778*^9, 
   3.906906190436268*^9, 3.906906931619618*^9, 3.906907288496587*^9, 
   3.906909502681822*^9, 3.9069102867100363`*^9, 3.906910422672291*^9, 
   3.906969410482573*^9, 3.906971294668805*^9, 3.9069748463490553`*^9, 
   3.906977086031803*^9, 3.907926910266316*^9, 3.908623696778047*^9, 
   3.908630131864141*^9, 3.9086308482010727`*^9, 3.908631022018458*^9, 
   3.9455032204991083`*^9, 3.945503896628557*^9, 3.94550444074086*^9, {
   3.945529051727633*^9, 3.945529078299416*^9}, 3.945529111892954*^9, 
   3.9455291808666763`*^9, 3.9455293481125183`*^9, 3.9456058078337727`*^9, 
   3.945607290751823*^9, 3.945686143996352*^9, 3.945956325260716*^9, 
   3.9459564703643217`*^9},
 CellLabel->
  "Out[2730]=",ExpressionUUID->"b3517cfb-3a20-43f5-b1ef-3d004392de75"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.81481595266424*^9, 3.8148159533847437`*^9}, 
   3.814816134738083*^9, {3.859219068880003*^9, 3.859219069315218*^9}, {
   3.90690217840779*^9, 3.906902178680179*^9}},
 CellLabel->
  "In[2731]:=",ExpressionUUID->"ca7b1d9a-a279-4147-9b0b-6a2bc372adc5"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**"}], "*", 
    RowBox[{"Congress", "'"}], "s", " ", 
    RowBox[{"Decision", "**", "**", "**"}], "*", "*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
   "**********)"}]}]], "Input",
 CellChangeTimes->{{3.814664884269059*^9, 3.814664948310218*^9}, {
   3.814748091414303*^9, 3.814748146576082*^9}, {3.814748334865695*^9, 
   3.81474838446976*^9}, 3.8147484165193043`*^9, {3.814748481933243*^9, 
   3.814748494827571*^9}, {3.814814992883623*^9, 3.814814994639441*^9}, 
   3.9069056349292793`*^9},
 CellLabel->
  "In[2739]:=",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.9069057196788073`*^9, 3.90690574388385*^9}},
 CellLabel->
  "In[2740]:=",ExpressionUUID->"7e6f87b0-c3de-4ffa-8e28-b2ffef06138d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"UCsg1", " ", "=", " ", 
    RowBox[{
     RowBox[{"PostProbr1", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"beta", "*", "pstarsg1"}], "-", 
        RowBox[{"s", "*", "fstarsg1"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "PostProbr1"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"beta", "*", "Dstarsg1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
   
   RowBox[{"UCsg2", " ", "=", "  ", 
    RowBox[{
     RowBox[{"PostProbr2", "*", 
      RowBox[{"(", 
       RowBox[{"beta", "*", "pstarsg2"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "PostProbr2"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"beta", "*", "Dstarsg1"}], ")"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.9069716999060802`*^9, 3.906971701946032*^9}},
 CellLabel->
  "In[2747]:=",ExpressionUUID->"5a78d8a9-25d8-458a-b45c-110ce6c66e8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"beta", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
    "]"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]], "+", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "s"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"beta", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox["t", "s"]]}], ")"}]}], 
      SqrtBox[
       FractionBox["t", "s"]]]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox[
         RowBox[{"s", " ", "t"}]], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", "cjmax", "+", 
              RowBox[{"s", " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
           "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.906974847470745*^9, 3.9069770871900663`*^9, 3.907926911066805*^9, 
   3.908623697667255*^9, 3.908630221066682*^9, 3.908630848466497*^9, 
   3.908631022298995*^9, 3.945503220685913*^9, 3.945503966255897*^9, 
   3.9455044407624702`*^9, {3.94552905174998*^9, 3.945529078316661*^9}, 
   3.945529111912931*^9, 3.9455291808835506`*^9, 3.9455293481296463`*^9, 
   3.9456058078560953`*^9, 3.9456072907728567`*^9, 3.9456861440169277`*^9, 
   3.945956363691926*^9, 3.94595647038239*^9},
 CellLabel->
  "Out[2747]=",ExpressionUUID->"4695e41d-8498-4ec0-9d11-29fe5853c89c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"beta", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "cjmax", "+", 
         RowBox[{"s", " ", "t"}], "-", 
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}], 
    "]"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "cjmax"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]], "+", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{
                RowBox[{
                 RowBox[{"-", "k"}], " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"2", " ", "k", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"beta", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", "cjmax", "+", 
                   RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
               RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
              "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{"beta", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "cjmax"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]], "+", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "k"}], " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{
                  SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"2", " ", "k", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "s", " ", 
                  SuperscriptBox["t", "3"]}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"beta", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "cjmax", "+", 
                 RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
             RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
            "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.906974847470745*^9, 3.9069770871900663`*^9, 3.907926911066805*^9, 
   3.908623697667255*^9, 3.908630221066682*^9, 3.908630848466497*^9, 
   3.908631022298995*^9, 3.945503220685913*^9, 3.945503966255897*^9, 
   3.9455044407624702`*^9, {3.94552905174998*^9, 3.945529078316661*^9}, 
   3.945529111912931*^9, 3.9455291808835506`*^9, 3.9455293481296463`*^9, 
   3.9456058078560953`*^9, 3.9456072907728567`*^9, 3.9456861440169277`*^9, 
   3.945956363691926*^9, 3.945956470385076*^9},
 CellLabel->
  "Out[2748]=",ExpressionUUID->"b2aa1403-9796-4876-b2b0-c1956ae90b0a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.906973594484015*^9, 3.906973594857726*^9}, {
  3.906974198585527*^9, 3.906974216935172*^9}},
 CellLabel->
  "In[2749]:=",ExpressionUUID->"6a347e81-f46a-4916-9feb-e74800a77109"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906902202501869*^9, 3.906902210331262*^9}, {
   3.906902247434721*^9, 3.9069022903236723`*^9}, {3.906902363258786*^9, 
   3.906902455774914*^9}, 3.906902625354589*^9, {3.906902744376514*^9, 
   3.906902823734871*^9}, 3.906902853893155*^9, {3.9069037465365868`*^9, 
   3.906903751619729*^9}, {3.906903993405891*^9, 3.906904002830358*^9}, {
   3.906904093304965*^9, 3.90690415513846*^9}, 3.90690463423728*^9, 
   3.906904666910824*^9, 3.906974171795129*^9},
 CellLabel->
  "In[2756]:=",ExpressionUUID->"56da9a59-b03b-4d21-ab56-66c9bfe22ce1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"UPsg1", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"PostProbr1", "*", 
     RowBox[{"(", 
      RowBox[{"pstarsg1", "-", 
       RowBox[{"s", "*", "fstarsg1"}], "-", "a"}], ")"}]}], ")"}], "+", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "PostProbr1"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"Dstarsg1", "-", "a"}], ")"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"UPsg2", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"PostProbr2", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"pstarsg2", "-", 
         RowBox[{"s", "*", "fstarsg2"}]}], ")"}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "pstarsg2"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"k", "*", 
           RowBox[{"fstarsg2", "/", "beta"}]}], ")"}]}], ")"}], "-", "a"}], 
      ")"}]}], ")"}], "+", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "PostProbr2"}], ")"}], "*", " ", 
     RowBox[{"(", 
      RowBox[{"Dstarsg2", "-", "a"}], ")"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"UPsg3", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"PostProbr3", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"pstarsg3", "-", 
          RowBox[{"s", "*", "fstarsg3"}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "pstarsg3"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"k", "*", 
            RowBox[{"fstarsg3", "/", "beta"}]}], ")"}]}], ")"}]}], ")"}]}], 
     ")"}], "+", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "PostProbr3"}], ")"}], "*", " ", "Dstarsg3"}], 
     ")"}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.906902381326384*^9, 3.9069023824884577`*^9}, 
   3.9069027415900173`*^9, {3.9069029075644407`*^9, 3.9069030179867697`*^9}, {
   3.90690345635544*^9, 3.906903512353849*^9}, {3.906903547631963*^9, 
   3.906903700987578*^9}, {3.9069046392322483`*^9, 3.906904665352022*^9}, {
   3.9069058822199917`*^9, 3.906905885168858*^9}, {3.906906209985381*^9, 
   3.9069062322481747`*^9}, 3.9069716981696568`*^9, 3.906973787503867*^9, {
   3.906974335488203*^9, 3.9069743806919403`*^9}, {3.906974503474619*^9, 
   3.90697453416735*^9}, {3.906974684234743*^9, 3.906974689387224*^9}, {
   3.906974789710067*^9, 3.906974819644899*^9}},
 CellLabel->
  "In[2757]:=",ExpressionUUID->"80c9db18-b9cc-4a7d-813e-6c11ebe8218e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "+", 
           RowBox[{"s", " ", "t"}], "-", 
           RowBox[{"3", " ", 
            SqrtBox[
             RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], "]"}]}],
       "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SqrtBox[
           RowBox[{"s", " ", "t"}]], "+", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "-", 
     RowBox[{"s", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox["t", "s"]]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "t"}], "+", 
       SqrtBox[
        FractionBox["t", "s"]]}], 
      SqrtBox[
       FractionBox["t", "s"]]]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox[
         RowBox[{"s", " ", "t"}]], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", "cjmax", "+", 
              RowBox[{"s", " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
           "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.9069062334206047`*^9, 3.9069069532517643`*^9, 3.906909503273031*^9, 
   3.90691028733749*^9, 3.906910423340722*^9, 3.90696941115385*^9, 
   3.906974186698872*^9, 3.9069742228667583`*^9, 3.9069743847493553`*^9, {
   3.9069748240257998`*^9, 3.906974847665443*^9}, 3.9069770873737097`*^9, 
   3.907926911185904*^9, 3.90862369779368*^9, 3.908630339267995*^9, 
   3.9086308485761747`*^9, 3.908631022411874*^9, 3.945503220755184*^9, 
   3.945504014047122*^9, 3.9455044407845163`*^9, {3.945529051767215*^9, 
   3.945529078332761*^9}, 3.945529111931538*^9, 3.945529180899602*^9, 
   3.945529348146192*^9, 3.945605807874216*^9, 3.945607290796362*^9, 
   3.9456861440342207`*^9, 3.9459563768299103`*^9, 3.945956470399712*^9},
 CellLabel->
  "Out[2757]=",ExpressionUUID->"d5e78460-82cc-428f-8275-ce1d265a9c66"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "k"}], " ", "t"}], "-", 
          RowBox[{"3", " ", 
           SqrtBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]]}], "+", 
          RowBox[{"2", " ", "k", " ", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", 
              SuperscriptBox["t", "3"]}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]]}], "+", 
          RowBox[{"beta", " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", "cjmax", "+", 
             RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
         RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], "]"}]}],
       "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "cjmax"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]], "+", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{
                RowBox[{
                 RowBox[{"-", "k"}], " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"2", " ", "k", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"beta", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", "cjmax", "+", 
                   RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
               RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
              "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "a", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]], "-", 
     RowBox[{"s", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        SqrtBox[
         FractionBox[
          RowBox[{"t", " ", 
           RowBox[{"(", 
            RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], ")"}]}], 
          RowBox[{"beta", " ", "s"}]]]}], ")"}]}], "-", 
     FractionBox[
      RowBox[{"k", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"beta", " ", "s", " ", "t"}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}], 
           RowBox[{"beta", " ", "s"}]]]}], ")"}]}], "beta"]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "cjmax"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]], "+", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "k"}], " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{
                  SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"2", " ", "k", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "s", " ", 
                  SuperscriptBox["t", "3"]}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"beta", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "cjmax", "+", 
                 RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
             RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
            "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.9069062334206047`*^9, 3.9069069532517643`*^9, 3.906909503273031*^9, 
   3.90691028733749*^9, 3.906910423340722*^9, 3.90696941115385*^9, 
   3.906974186698872*^9, 3.9069742228667583`*^9, 3.9069743847493553`*^9, {
   3.9069748240257998`*^9, 3.906974847665443*^9}, 3.9069770873737097`*^9, 
   3.907926911185904*^9, 3.90862369779368*^9, 3.908630339267995*^9, 
   3.9086308485761747`*^9, 3.908631022411874*^9, 3.945503220755184*^9, 
   3.945504014047122*^9, 3.9455044407845163`*^9, {3.945529051767215*^9, 
   3.945529078332761*^9}, 3.945529111931538*^9, 3.945529180899602*^9, 
   3.945529348146192*^9, 3.945605807874216*^9, 3.945607290796362*^9, 
   3.9456861440342207`*^9, 3.9459563768299103`*^9, 3.94595647040244*^9},
 CellLabel->
  "Out[2758]=",ExpressionUUID->"f8fc39fc-1d55-4f2f-972d-b4c8ac30ad93"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "k"}], " ", "t"}], "-", 
        RowBox[{"3", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", 
            SuperscriptBox["t", "3"]}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"beta", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "+", 
           RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
       RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
    "]"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "cjmax"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]], "+", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{
                RowBox[{
                 RowBox[{"-", "k"}], " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"2", " ", "k", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"beta", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", "cjmax", "+", 
                   RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
               RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
              "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}], "-", 
       SqrtBox[
        RowBox[{"beta", " ", "s", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]], "-", 
     RowBox[{"s", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
         SqrtBox[
          FractionBox["1", 
           RowBox[{"beta", " ", "s"}]]], " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"beta", " ", "t"}], "-", 
           RowBox[{"k", " ", 
            SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
     FractionBox[
      RowBox[{"k", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"beta", " ", "t"}], "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}], "-", 
           SqrtBox[
            RowBox[{"beta", " ", "s", " ", "t", " ", 
             RowBox[{"(", 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "cjmax"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]], "+", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "k"}], " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{
                  SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"2", " ", "k", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "s", " ", 
                  SuperscriptBox["t", "3"]}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"beta", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "cjmax", "+", 
                 RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
             RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
            "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.9069062334206047`*^9, 3.9069069532517643`*^9, 3.906909503273031*^9, 
   3.90691028733749*^9, 3.906910423340722*^9, 3.90696941115385*^9, 
   3.906974186698872*^9, 3.9069742228667583`*^9, 3.9069743847493553`*^9, {
   3.9069748240257998`*^9, 3.906974847665443*^9}, 3.9069770873737097`*^9, 
   3.907926911185904*^9, 3.90862369779368*^9, 3.908630339267995*^9, 
   3.9086308485761747`*^9, 3.908631022411874*^9, 3.945503220755184*^9, 
   3.945504014047122*^9, 3.9455044407845163`*^9, {3.945529051767215*^9, 
   3.945529078332761*^9}, 3.945529111931538*^9, 3.945529180899602*^9, 
   3.945529348146192*^9, 3.945605807874216*^9, 3.945607290796362*^9, 
   3.9456861440342207`*^9, 3.9459563768299103`*^9, 3.945956470405407*^9},
 CellLabel->
  "Out[2759]=",ExpressionUUID->"b799b26c-3a8f-40ac-a75a-b8cd358cf767"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814664950620144*^9, 3.814664982360955*^9}, {
   3.814665207578147*^9, 3.8146652182096024`*^9}, {3.8146655453957977`*^9, 
   3.814665550530431*^9}, {3.814817944908559*^9, 3.8148179475948877`*^9}, {
   3.859219094583047*^9, 3.859219103375312*^9}, 3.906902186887615*^9, {
   3.9069055471445847`*^9, 3.9069055473388042`*^9}, {3.906906958540813*^9, 
   3.90690695879191*^9}, {3.945504030582077*^9, 3.945504032348525*^9}, 
   3.945686125177288*^9, 3.9459563905424423`*^9},
 CellLabel->
  "In[2760]:=",ExpressionUUID->"125ae15c-8aa3-4f93-8e8d-98526880df05"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8147253667453938`*^9, 3.814725392309165*^9}, {
   3.8629709530183496`*^9, 3.862970957721285*^9}, 3.9456861271472883`*^9},
 CellLabel->
  "In[2761]:=",ExpressionUUID->"6609b1a3-d8bc-4ae2-9fe3-33f73c0603c1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"UPAsk", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], ",",
     "UPsg1", ",", "UPsg2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"UPNotAsk", " ", "=", " ", "UPsg3"}]}], "Input",
 CellChangeTimes->{{3.814666576533584*^9, 3.814666695525008*^9}, {
  3.814724202360216*^9, 3.8147242065589533`*^9}},
 CellLabel->
  "In[2762]:=",ExpressionUUID->"4bb35295-c917-4019-9551-c1712f72b92b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"beta", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", 
        ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
         "]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SqrtBox[
              RowBox[{"s", " ", "t"}]], "+", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", "cjmax", "+", 
                   RowBox[{"s", " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
               "1", ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
                "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
           "]"}]}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "s"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "t"}], "+", 
           SqrtBox[
            FractionBox["t", "s"]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            SqrtBox[
             FractionBox["t", "s"]]}], ")"}]}], 
         SqrtBox[
          FractionBox["t", "s"]]]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox[
            RowBox[{"s", " ", "t"}]], "+", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "cjmax", "+", 
                 RowBox[{"s", " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
             "1", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
              "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}], 
         "]"}]}], "]"}]}], "-", 
     RowBox[{"beta", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", "cjmax", "+", 
            RowBox[{"s", " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1", 
        ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
         "]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "cjmax"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"beta", " ", "s", " ", "t"}], 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}]]], "+", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                  RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}],
                  "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
           "]"}]}], "]"}]}], ")"}]}], "-", 
     RowBox[{"beta", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox[
         FractionBox[
          RowBox[{"beta", " ", "s", " ", "t"}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "cjmax"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]], "+", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "k"}], " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"2", " ", "k", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"beta", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", "dstarsg2"}], 
               "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}], 
         "]"}]}], "]"}]}]}], "\[GreaterEqual]", "0"}], ",", "UPsg1", ",", 
   "UPsg2"}], "]"}]], "Output",
 CellChangeTimes->{
  3.814666705672758*^9, 3.8146667755457993`*^9, 3.8147240223854523`*^9, 
   3.814724208499527*^9, 3.814724751617064*^9, 3.8148169610185213`*^9, 
   3.814817399396566*^9, {3.8148179907907047`*^9, 3.8148179970242043`*^9}, {
   3.814820299031776*^9, 3.814820317184064*^9}, 3.81482175010046*^9, 
   3.814822421979273*^9, 3.81483733304702*^9, 3.816988678253962*^9, 
   3.8592191864768553`*^9, 3.859245941117764*^9, 3.8594116510345573`*^9, 
   3.859592386989884*^9, 3.8629707505724792`*^9, 3.862971053187969*^9, 
   3.865294901820479*^9, 3.8684007264839582`*^9, 3.870021534756228*^9, 
   3.8701009428576736`*^9, 3.90656195284311*^9, 3.90687002166815*^9, 
   3.906870503616941*^9, 3.9068712871472607`*^9, 3.906871421124247*^9, 
   3.906903808369987*^9, 3.906904730067954*^9, 3.906905411796076*^9, 
   3.906905570252447*^9, 3.906905754903723*^9, 3.9069059179247093`*^9, 
   3.906906239608762*^9, 3.906906966160515*^9, 3.906909503322431*^9, 
   3.9069102873886757`*^9, 3.906910423394143*^9, 3.906969411227538*^9, 
   3.9069743886397333`*^9, 3.90697484770366*^9, 3.906977087411522*^9, 
   3.907926911207183*^9, 3.908623697818721*^9, 3.908630342569783*^9, 
   3.9086308486017923`*^9, 3.908631022442141*^9, 3.945503220771956*^9, 
   3.945504066530923*^9, 3.945504440805439*^9, {3.945529051786528*^9, 
   3.945529078351877*^9}, 3.945529111946185*^9, 3.945529180916915*^9, 
   3.945529348164456*^9, 3.945605807894313*^9, 3.945607290817388*^9, 
   3.9456861440489597`*^9, 3.945956393811298*^9, 3.945956470421398*^9},
 CellLabel->
  "Out[2762]=",ExpressionUUID->"2518aa1f-576f-49e4-8872-258009129f0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "k"}], " ", "t"}], "-", 
        RowBox[{"3", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", 
            SuperscriptBox["t", "3"]}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]]}], "+", 
        RowBox[{"beta", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", "cjmax", "+", 
           RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
       RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
    "]"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "cjmax"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SqrtBox[
            FractionBox[
             RowBox[{"beta", " ", "s", " ", "t"}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]], "+", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{
                RowBox[{
                 RowBox[{"-", "k"}], " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"2", " ", "k", " ", 
                 SqrtBox[
                  FractionBox[
                   RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                   RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                RowBox[{"beta", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", "cjmax", "+", 
                   RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
               RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
              "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
        "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}], "-", 
       SqrtBox[
        RowBox[{"beta", " ", "s", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}]], "-", 
     RowBox[{"s", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
         SqrtBox[
          FractionBox["1", 
           RowBox[{"beta", " ", "s"}]]], " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"beta", " ", "t"}], "-", 
           RowBox[{"k", " ", 
            SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
     FractionBox[
      RowBox[{"k", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "t"}], "+", 
         RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"beta", " ", "t"}], "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}], "-", 
           SqrtBox[
            RowBox[{"beta", " ", "s", " ", "t", " ", 
             RowBox[{"(", 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
          RowBox[{"beta", "-", 
           RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", "cjmax"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SqrtBox[
          FractionBox[
           RowBox[{"beta", " ", "s", " ", "t"}], 
           RowBox[{"beta", "-", 
            RowBox[{"k", " ", "t"}]}]]], "+", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "k"}], " ", "t"}], "-", 
              RowBox[{"3", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{
                  SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"2", " ", "k", " ", 
               SqrtBox[
                FractionBox[
                 RowBox[{"beta", " ", "s", " ", 
                  SuperscriptBox["t", "3"]}], 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}]]]}], "+", 
              RowBox[{"beta", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "cjmax", "+", 
                 RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
             RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
            "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
      "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.814666705672758*^9, 3.8146667755457993`*^9, 3.8147240223854523`*^9, 
   3.814724208499527*^9, 3.814724751617064*^9, 3.8148169610185213`*^9, 
   3.814817399396566*^9, {3.8148179907907047`*^9, 3.8148179970242043`*^9}, {
   3.814820299031776*^9, 3.814820317184064*^9}, 3.81482175010046*^9, 
   3.814822421979273*^9, 3.81483733304702*^9, 3.816988678253962*^9, 
   3.8592191864768553`*^9, 3.859245941117764*^9, 3.8594116510345573`*^9, 
   3.859592386989884*^9, 3.8629707505724792`*^9, 3.862971053187969*^9, 
   3.865294901820479*^9, 3.8684007264839582`*^9, 3.870021534756228*^9, 
   3.8701009428576736`*^9, 3.90656195284311*^9, 3.90687002166815*^9, 
   3.906870503616941*^9, 3.9068712871472607`*^9, 3.906871421124247*^9, 
   3.906903808369987*^9, 3.906904730067954*^9, 3.906905411796076*^9, 
   3.906905570252447*^9, 3.906905754903723*^9, 3.9069059179247093`*^9, 
   3.906906239608762*^9, 3.906906966160515*^9, 3.906909503322431*^9, 
   3.9069102873886757`*^9, 3.906910423394143*^9, 3.906969411227538*^9, 
   3.9069743886397333`*^9, 3.90697484770366*^9, 3.906977087411522*^9, 
   3.907926911207183*^9, 3.908623697818721*^9, 3.908630342569783*^9, 
   3.9086308486017923`*^9, 3.908631022442141*^9, 3.945503220771956*^9, 
   3.945504066530923*^9, 3.945504440805439*^9, {3.945529051786528*^9, 
   3.945529078351877*^9}, 3.945529111946185*^9, 3.945529180916915*^9, 
   3.945529348164456*^9, 3.945605807894313*^9, 3.945607290817388*^9, 
   3.9456861440489597`*^9, 3.945956393811298*^9, 3.9459564704249277`*^9},
 CellLabel->
  "Out[2763]=",ExpressionUUID->"242a7d5c-f185-45bd-8150-beca2c472d7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ForceObserved", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
      ",", "fstarsg1", ",", "fstarsg2"}], "]"}], ",", "fstarsg3"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"DealObserved", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
      ",", "dstarsg1", ",", "dstarsg2"}], "]"}], ",", "dstarsg3"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ProbabilityofVictoryUSA", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
      ",", "pstarsg1", ",", "pstarsg2"}], "]"}], ",", "pstarsg3"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ProbabilityofWar", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UPAsk", "-", "UPNotAsk"}], "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"UCsg1", " ", "-", " ", "UCsg2"}], "\[GreaterEqual]", "0"}], 
      ",", "probr1", ",", "probr2"}], "]"}], ",", "probr3"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.81482235317627*^9, 3.8148224124746723`*^9}, {
  3.81482253105276*^9, 3.814822542931603*^9}, {3.814822617112629*^9, 
  3.8148226737836227`*^9}, {3.814840089306715*^9, 3.8148401272067747`*^9}},
 CellLabel->
  "In[2764]:=",ExpressionUUID->"e5c537c9-22e9-484e-9369-aa7ee0658924"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
          "]"}]}], "]"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "cjmax"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"beta", " ", "s", " ", "t"}], 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}]]], "+", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                  RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}],
                  "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
           "]"}]}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}], "-", 
          SqrtBox[
           RowBox[{"beta", " ", "s", " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]], "-", 
        RowBox[{"s", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "t"}], "+", 
           RowBox[{
            SqrtBox[
             FractionBox["1", 
              RowBox[{"beta", " ", "s"}]]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"beta", " ", "t"}], "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            RowBox[{
             SqrtBox[
              FractionBox["1", 
               RowBox[{"beta", " ", "s"}]]], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"beta", " ", "t"}], "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}], "-", 
              SqrtBox[
               RowBox[{"beta", " ", "s", " ", "t", " ", 
                RowBox[{"(", 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "cjmax"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]], "+", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "k"}], " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"2", " ", "k", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"beta", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
               "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]], "+", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                   "1", ",", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                    "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",",
               "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", 
                "postprobr1"}], "]"}]}], "]"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "s"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "t"}], "+", 
               SqrtBox[
                FractionBox["t", "s"]]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"beta", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "t"}], "+", 
                SqrtBox[
                 FractionBox["t", "s"]]}], ")"}]}], 
             SqrtBox[
              FractionBox["t", "s"]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]], "+", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                 "1", ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                   "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}],
              "]"}]}], "]"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                FractionBox["1", "cjmax"], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]], "+", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
              "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", 
                "postprobr2"}], "]"}]}], "]"}]}], ")"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "cjmax"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SqrtBox[
                 FractionBox[
                  RowBox[{"beta", " ", "s", " ", "t"}], 
                  RowBox[{"beta", "-", 
                   RowBox[{"k", " ", "t"}]}]]], "+", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}],
              "]"}]}], "]"}]}]}], "\[GreaterEqual]", "0"}], ",", "UPsg1", ",",
        "UPsg2"}], "]"}]}], "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "fstarsg1", ",", "fstarsg2"}], "]"}], ",", "fstarsg3"}], "]"}]], "Output",\

 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.906903839910768*^9, 
   3.90690474901577*^9, 3.9069049465102777`*^9, 3.906905417589108*^9, 
   3.906905586989484*^9, 3.906905762267116*^9, 3.906905917955698*^9, 
   3.906906243745742*^9, 3.906906969152465*^9, 3.9069095033476143`*^9, 
   3.906910287412301*^9, 3.906910423417688*^9, 3.906969411260717*^9, 
   3.9069743915234222`*^9, 3.9069748477301693`*^9, 3.9069770874389553`*^9, 
   3.907926911214425*^9, 3.908623697826956*^9, 3.908630345522232*^9, 
   3.908630848622171*^9, 3.908631022457255*^9, 3.945503220786132*^9, {
   3.94550407384062*^9, 3.9455040769809723`*^9}, 3.94550444082106*^9, {
   3.9455290518013897`*^9, 3.9455290783652897`*^9}, 3.9455291119574213`*^9, 
   3.945529180930499*^9, 3.945529348178013*^9, 3.9456058079094343`*^9, 
   3.945607290834485*^9, 3.9456861440594378`*^9, 3.945956399321323*^9, 
   3.9459564704314823`*^9},
 CellLabel->
  "Out[2764]=",ExpressionUUID->"6c560bbc-cce7-4781-9b8e-582a6721c556"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
          "]"}]}], "]"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "cjmax"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"beta", " ", "s", " ", "t"}], 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}]]], "+", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                  RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}],
                  "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
           "]"}]}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}], "-", 
          SqrtBox[
           RowBox[{"beta", " ", "s", " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]], "-", 
        RowBox[{"s", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "t"}], "+", 
           RowBox[{
            SqrtBox[
             FractionBox["1", 
              RowBox[{"beta", " ", "s"}]]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"beta", " ", "t"}], "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            RowBox[{
             SqrtBox[
              FractionBox["1", 
               RowBox[{"beta", " ", "s"}]]], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"beta", " ", "t"}], "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}], "-", 
              SqrtBox[
               RowBox[{"beta", " ", "s", " ", "t", " ", 
                RowBox[{"(", 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "cjmax"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]], "+", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "k"}], " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"2", " ", "k", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"beta", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
               "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]], "+", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                   "1", ",", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                    "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",",
               "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", 
                "postprobr1"}], "]"}]}], "]"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "s"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "t"}], "+", 
               SqrtBox[
                FractionBox["t", "s"]]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"beta", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "t"}], "+", 
                SqrtBox[
                 FractionBox["t", "s"]]}], ")"}]}], 
             SqrtBox[
              FractionBox["t", "s"]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]], "+", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                 "1", ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                   "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}],
              "]"}]}], "]"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                FractionBox["1", "cjmax"], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]], "+", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
              "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", 
                "postprobr2"}], "]"}]}], "]"}]}], ")"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "cjmax"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SqrtBox[
                 FractionBox[
                  RowBox[{"beta", " ", "s", " ", "t"}], 
                  RowBox[{"beta", "-", 
                   RowBox[{"k", " ", "t"}]}]]], "+", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}],
              "]"}]}], "]"}]}]}], "\[GreaterEqual]", "0"}], ",", "UPsg1", ",",
        "UPsg2"}], "]"}]}], "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "dstarsg1", ",", "dstarsg2"}], "]"}], ",", "dstarsg3"}], "]"}]], "Output",\

 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.906903839910768*^9, 
   3.90690474901577*^9, 3.9069049465102777`*^9, 3.906905417589108*^9, 
   3.906905586989484*^9, 3.906905762267116*^9, 3.906905917955698*^9, 
   3.906906243745742*^9, 3.906906969152465*^9, 3.9069095033476143`*^9, 
   3.906910287412301*^9, 3.906910423417688*^9, 3.906969411260717*^9, 
   3.9069743915234222`*^9, 3.9069748477301693`*^9, 3.9069770874389553`*^9, 
   3.907926911214425*^9, 3.908623697826956*^9, 3.908630345522232*^9, 
   3.908630848622171*^9, 3.908631022457255*^9, 3.945503220786132*^9, {
   3.94550407384062*^9, 3.9455040769809723`*^9}, 3.94550444082106*^9, {
   3.9455290518013897`*^9, 3.9455290783652897`*^9}, 3.9455291119574213`*^9, 
   3.945529180930499*^9, 3.945529348178013*^9, 3.9456058079094343`*^9, 
   3.945607290834485*^9, 3.9456861440594378`*^9, 3.945956399321323*^9, 
   3.945956470435973*^9},
 CellLabel->
  "Out[2765]=",ExpressionUUID->"cd109028-85fe-42ff-8269-253d575b4d69"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
          "]"}]}], "]"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "cjmax"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"beta", " ", "s", " ", "t"}], 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}]]], "+", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                  RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}],
                  "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
           "]"}]}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}], "-", 
          SqrtBox[
           RowBox[{"beta", " ", "s", " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]], "-", 
        RowBox[{"s", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "t"}], "+", 
           RowBox[{
            SqrtBox[
             FractionBox["1", 
              RowBox[{"beta", " ", "s"}]]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"beta", " ", "t"}], "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            RowBox[{
             SqrtBox[
              FractionBox["1", 
               RowBox[{"beta", " ", "s"}]]], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"beta", " ", "t"}], "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}], "-", 
              SqrtBox[
               RowBox[{"beta", " ", "s", " ", "t", " ", 
                RowBox[{"(", 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "cjmax"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]], "+", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "k"}], " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"2", " ", "k", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"beta", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
               "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]], "+", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                   "1", ",", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                    "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",",
               "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", 
                "postprobr1"}], "]"}]}], "]"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "s"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "t"}], "+", 
               SqrtBox[
                FractionBox["t", "s"]]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"beta", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "t"}], "+", 
                SqrtBox[
                 FractionBox["t", "s"]]}], ")"}]}], 
             SqrtBox[
              FractionBox["t", "s"]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]], "+", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                 "1", ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                   "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}],
              "]"}]}], "]"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                FractionBox["1", "cjmax"], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]], "+", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
              "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", 
                "postprobr2"}], "]"}]}], "]"}]}], ")"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "cjmax"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SqrtBox[
                 FractionBox[
                  RowBox[{"beta", " ", "s", " ", "t"}], 
                  RowBox[{"beta", "-", 
                   RowBox[{"k", " ", "t"}]}]]], "+", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}],
              "]"}]}], "]"}]}]}], "\[GreaterEqual]", "0"}], ",", "UPsg1", ",",
        "UPsg2"}], "]"}]}], "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "pstarsg1", ",", "pstarsg2"}], "]"}], ",", "pstarsg3"}], "]"}]], "Output",\

 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.906903839910768*^9, 
   3.90690474901577*^9, 3.9069049465102777`*^9, 3.906905417589108*^9, 
   3.906905586989484*^9, 3.906905762267116*^9, 3.906905917955698*^9, 
   3.906906243745742*^9, 3.906906969152465*^9, 3.9069095033476143`*^9, 
   3.906910287412301*^9, 3.906910423417688*^9, 3.906969411260717*^9, 
   3.9069743915234222`*^9, 3.9069748477301693`*^9, 3.9069770874389553`*^9, 
   3.907926911214425*^9, 3.908623697826956*^9, 3.908630345522232*^9, 
   3.908630848622171*^9, 3.908631022457255*^9, 3.945503220786132*^9, {
   3.94550407384062*^9, 3.9455040769809723`*^9}, 3.94550444082106*^9, {
   3.9455290518013897`*^9, 3.9455290783652897`*^9}, 3.9455291119574213`*^9, 
   3.945529180930499*^9, 3.945529348178013*^9, 3.9456058079094343`*^9, 
   3.945607290834485*^9, 3.9456861440594378`*^9, 3.945956399321323*^9, 
   3.945956470440112*^9},
 CellLabel->
  "Out[2766]=",ExpressionUUID->"2c26d028-5d72-4eee-92f1-407dd63e4801"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "k"}], " ", "t"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{
                SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"2", " ", "k", " ", 
             SqrtBox[
              FractionBox[
               RowBox[{"beta", " ", "s", " ", 
                SuperscriptBox["t", "3"]}], 
               RowBox[{"beta", "-", 
                RowBox[{"k", " ", "t"}]}]]]}], "+", 
            RowBox[{"beta", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "cjmax", "+", 
               RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
           RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
          "]"}]}], "]"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox["1", "cjmax"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox[
               FractionBox[
                RowBox[{"beta", " ", "s", " ", "t"}], 
                RowBox[{"beta", "-", 
                 RowBox[{"k", " ", "t"}]}]]], "+", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                   RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                   RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                  RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}],
                  "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
           "]"}]}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}], "-", 
          SqrtBox[
           RowBox[{"beta", " ", "s", " ", "t", " ", 
            RowBox[{"(", 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
         RowBox[{"beta", "-", 
          RowBox[{"k", " ", "t"}]}]], "-", 
        RowBox[{"s", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "t"}], "+", 
           RowBox[{
            SqrtBox[
             FractionBox["1", 
              RowBox[{"beta", " ", "s"}]]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"beta", " ", "t"}], "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], ")"}]}], "-", 
        FractionBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "t"}], "+", 
            RowBox[{
             SqrtBox[
              FractionBox["1", 
               RowBox[{"beta", " ", "s"}]]], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"beta", " ", "t"}], "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["t", "2"]}]}]]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}], "-", 
              SqrtBox[
               RowBox[{"beta", " ", "s", " ", "t", " ", 
                RowBox[{"(", 
                 RowBox[{"beta", "-", 
                  RowBox[{"k", " ", "t"}]}], ")"}]}]]}], 
             RowBox[{"beta", "-", 
              RowBox[{"k", " ", "t"}]}]]}], ")"}]}], "beta"]}], ")"}], " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "cjmax"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]], "+", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "k"}], " ", "t"}], "-", 
                 RowBox[{"3", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"2", " ", "k", " ", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                 RowBox[{"beta", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], 
               "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"postprobr3", "<", "0"}], ",", "0", ",", "postprobr3"}], 
         "]"}]}], "]"}]}], "+", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]], "+", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                   "1", ",", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                    "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",",
               "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", 
                "postprobr1"}], "]"}]}], "]"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "s"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "t"}], "+", 
               SqrtBox[
                FractionBox["t", "s"]]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"beta", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "t"}], "+", 
                SqrtBox[
                 FractionBox["t", "s"]]}], ")"}]}], 
             SqrtBox[
              FractionBox["t", "s"]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SqrtBox[
                RowBox[{"s", " ", "t"}]], "+", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", 
                 "1", ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", 
                   "dstarsg1"}], "]"}]}], "]"}]}], "cjmax"], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr1", "<", "0"}], ",", "0", ",", "postprobr1"}],
              "]"}]}], "]"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "cjmax", "+", 
                RowBox[{"s", " ", "t"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox[
                  RowBox[{"s", " ", "t"}]]}]}], ")"}]}], ">", "1"}], ",", "1",
             ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"dstarsg1", "<", "0"}], ",", "0", ",", "dstarsg1"}], 
             "]"}]}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                FractionBox["1", "cjmax"], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  SqrtBox[
                   FractionBox[
                    RowBox[{"beta", " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]], "+", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
              "1", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", 
                "postprobr2"}], "]"}]}], "]"}]}], ")"}]}], "-", 
         RowBox[{"beta", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SqrtBox[
             FractionBox[
              RowBox[{"beta", " ", "s", " ", "t"}], 
              RowBox[{"beta", "-", 
               RowBox[{"k", " ", "t"}]}]]]}], ")"}], " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              FractionBox["1", "cjmax"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SqrtBox[
                 FractionBox[
                  RowBox[{"beta", " ", "s", " ", "t"}], 
                  RowBox[{"beta", "-", 
                   RowBox[{"k", " ", "t"}]}]]], "+", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "k"}], " ", "t"}], "-", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["beta", "3"], " ", "s", " ", "t"}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"2", " ", "k", " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{"beta", " ", "s", " ", 
                    SuperscriptBox["t", "3"]}], 
                    RowBox[{"beta", "-", 
                    RowBox[{"k", " ", "t"}]}]]]}], "+", 
                    RowBox[{"beta", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "+", "cjmax", "+", 
                    RowBox[{"s", " ", "t"}]}], ")"}]}]}], 
                    RowBox[{"2", " ", "beta"}]], ">", "1"}], ",", "1", ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"dstarsg2", "<", "0"}], ",", "0", ",", 
                    "dstarsg2"}], "]"}]}], "]"}]}], ")"}]}], ">", "1"}], ",", 
            "1", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"postprobr2", "<", "0"}], ",", "0", ",", "postprobr2"}],
              "]"}]}], "]"}]}]}], "\[GreaterEqual]", "0"}], ",", "UPsg1", ",",
        "UPsg2"}], "]"}]}], "\[GreaterEqual]", "0"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UCsg1", "-", "UCsg2"}], "\[GreaterEqual]", "0"}], ",", 
     "probr1", ",", "probr2"}], "]"}], ",", "probr3"}], "]"}]], "Output",
 CellChangeTimes->{
  3.8148221259967747`*^9, 3.814822431972574*^9, 3.8148225517950077`*^9, 
   3.81482268138354*^9, 3.8148373260402308`*^9, {3.814840129651968*^9, 
   3.8148401421250677`*^9}, 3.816988693486668*^9, 3.859219195568606*^9, 
   3.8592485565166283`*^9, 3.859411651393429*^9, 3.859592387307137*^9, 
   3.862970790505232*^9, 3.862971054056013*^9, 3.865294924182947*^9, 
   3.8684007387295094`*^9, 3.870021535502673*^9, 3.870100943643917*^9, 
   3.9065619673944197`*^9, 3.906870051965331*^9, 3.90687052461852*^9, 
   3.906871310186205*^9, 3.906871421898611*^9, 3.906903839910768*^9, 
   3.90690474901577*^9, 3.9069049465102777`*^9, 3.906905417589108*^9, 
   3.906905586989484*^9, 3.906905762267116*^9, 3.906905917955698*^9, 
   3.906906243745742*^9, 3.906906969152465*^9, 3.9069095033476143`*^9, 
   3.906910287412301*^9, 3.906910423417688*^9, 3.906969411260717*^9, 
   3.9069743915234222`*^9, 3.9069748477301693`*^9, 3.9069770874389553`*^9, 
   3.907926911214425*^9, 3.908623697826956*^9, 3.908630345522232*^9, 
   3.908630848622171*^9, 3.908631022457255*^9, 3.945503220786132*^9, {
   3.94550407384062*^9, 3.9455040769809723`*^9}, 3.94550444082106*^9, {
   3.9455290518013897`*^9, 3.9455290783652897`*^9}, 3.9455291119574213`*^9, 
   3.945529180930499*^9, 3.945529348178013*^9, 3.9456058079094343`*^9, 
   3.945607290834485*^9, 3.9456861440594378`*^9, 3.945956399321323*^9, 
   3.9459564704444942`*^9},
 CellLabel->
  "Out[2767]=",ExpressionUUID->"87149249-6c2b-4f17-9bfe-112cb47a0a63"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8594118415791473`*^9, 3.859411895516698*^9}, {
   3.859411941077361*^9, 3.859411951597988*^9}, {3.8594120084511547`*^9, 
   3.859412127363317*^9}, {3.85941220718167*^9, 3.859412297142149*^9}, {
   3.859412430125039*^9, 3.859412441764864*^9}, {3.859412723907796*^9, 
   3.859412781940625*^9}, {3.8594135686399717`*^9, 3.859413606422127*^9}, {
   3.8594145461769876`*^9, 3.8594145542229958`*^9}, {3.85941461923638*^9, 
   3.859414627788073*^9}, {3.859414752959908*^9, 3.859414772923378*^9}, {
   3.859414818654361*^9, 3.859414850349722*^9}, {3.859414938028179*^9, 
   3.8594149712474318`*^9}, {3.859415010244708*^9, 3.8594150370436497`*^9}, {
   3.859415170089344*^9, 3.859415202134385*^9}, {3.859415262845633*^9, 
   3.859415276976969*^9}, {3.8594619009918737`*^9, 3.859462026306881*^9}, {
   3.859462120240913*^9, 3.8594621238842487`*^9}, 3.85946220003364*^9, {
   3.8594622384185038`*^9, 3.859462316227396*^9}, {3.859489655265724*^9, 
   3.859489658828355*^9}, 3.859489695409004*^9, {3.859489727596488*^9, 
   3.8594897283573313`*^9}, {3.8594897618840733`*^9, 
   3.8594897727223167`*^9}, {3.8594898631422462`*^9, 3.859489863576161*^9}, {
   3.85948996411228*^9, 3.859489965141859*^9}, {3.859490088176981*^9, 
   3.859490148725127*^9}, {3.859490186630705*^9, 3.859490192540175*^9}, {
   3.859495038341364*^9, 3.859495093995146*^9}, {3.859495129582655*^9, 
   3.859495152739105*^9}, {3.8594952078128853`*^9, 3.8594952087238894`*^9}, {
   3.859495307329502*^9, 3.859495340386655*^9}, {3.8594954338803673`*^9, 
   3.859495436588221*^9}, 3.859495501062241*^9, {3.859495544815524*^9, 
   3.859495598958335*^9}, {3.8594956484590178`*^9, 3.8594956921701927`*^9}, {
   3.859495729543593*^9, 3.859495775448436*^9}, {3.859495832273678*^9, 
   3.8594958535071173`*^9}, {3.859495963663782*^9, 3.8594959677799063`*^9}, {
   3.859496001665744*^9, 3.8594960018978357`*^9}, {3.859496065383718*^9, 
   3.859496091978524*^9}, {3.859496354258861*^9, 3.859496359505518*^9}, {
   3.859496419711341*^9, 3.8594964524227333`*^9}, {3.859550057447357*^9, 
   3.8595500663446836`*^9}, {3.859550122992373*^9, 3.859550123746584*^9}, {
   3.859568430781149*^9, 3.859568515522232*^9}, {3.8595686900174294`*^9, 
   3.859568735932879*^9}, {3.8595688272023897`*^9, 3.8595688328763657`*^9}, {
   3.859592732878175*^9, 3.8595927857389708`*^9}, 3.859592829273624*^9, {
   3.8595928935102243`*^9, 3.859592894274852*^9}, {3.90690485259548*^9, 
   3.90690485291752*^9}, 3.9069050319802837`*^9, 3.906905382420724*^9, 
   3.906905437624547*^9, {3.906905611020946*^9, 3.906905611388633*^9}, {
   3.9069063387162533`*^9, 3.906906338896089*^9}, {3.906906534352395*^9, 
   3.9069065391444283`*^9}, {3.906910807501177*^9, 3.906910861956378*^9}, {
   3.9069108919642553`*^9, 3.906910904750256*^9}, {3.9069109524613953`*^9, 
   3.906910957556603*^9}},
 CellLabel->
  "In[2768]:=",ExpressionUUID->"6081c5fe-8e0a-4dce-9bb2-b09509a02e88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=", "0.5"}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=", "0.15"}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=", "0.6"}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=", "0.2"}], "\[IndentingNewLine]", 
   RowBox[{"cjmax", "=", "0.8"}], "\[IndentingNewLine]", 
   RowBox[{"a", "=", ".1"}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=", "1"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Figure7", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"fstarsg3", ",", "fstarsg1", ",", 
        RowBox[{"ConditionalExpression", "[", 
         RowBox[{
          RowBox[{"ForceObserved", "+", ".01"}], ",", 
          RowBox[{"0", "\[LessEqual]", "t", "<", "1.24"}]}], "]"}], ",", 
        RowBox[{"ConditionalExpression", "[", 
         RowBox[{
          RowBox[{"ForceObserved", "+", ".01"}], ",", 
          RowBox[{"1.24", "  ", "<", "t"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "1.53"}], "}"}], ",", 
      RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Opacity", "[", 
          RowBox[{"0.4", ",", 
           RowBox[{"ColorData", "[", 
            RowBox[{"97", ",", "1"}], "]"}]}], "]"}], ",", 
         RowBox[{"Opacity", "[", 
          RowBox[{"0.4", ",", 
           RowBox[{"ColorData", "[", 
            RowBox[{"97", ",", "2"}], "]"}]}], "]"}], ",", 
         RowBox[{"Opacity", "[", 
          RowBox[{"1", ",", 
           RowBox[{"ColorData", "[", 
            RowBox[{"97", ",", "1"}], "]"}]}], "]"}], ",", 
         RowBox[{"Opacity", "[", 
          RowBox[{"1", ",", 
           RowBox[{"ColorData", "[", 
            RowBox[{"97", ",", "2"}], "]"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.53"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.8"}], "}"}]}], "}"}]}], ",", " ", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<Force as a Function \\n of Adversary Power\>\"", ",", "14"}], 
        "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Adversary Power \\n \
(\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\")\",FontSlant->\
\"Italic\"]\)\>\"", ",", "14"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\\n Force \\n \
(\!\(\*StyleBox[\"f\",FontSlant->\"Italic\"]\))\>\"", ",", "14"}], "]"}]}], 
        "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
        "}"}]}], ",", 
      RowBox[{"ExclusionsStyle", "\[Rule]", 
       RowBox[{"{", "Dotted", "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*StyleBox[\"Unilateral\",FontWeight->\"Bold\"]\)\>\"", ",", 
         "\"\<\!\(\*StyleBox[\"With\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"\
 \",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"AUMF\",FontWeight->\"Bold\"]\)\>\"\
", ",", "\"\<\!\(\*StyleBox[\"Unilateral\",FontWeight->\"Bold\"]\) (observed)\
\>\"", ",", 
         "\"\<\!\(\*StyleBox[\"With\",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"\
 \",FontWeight->\"Bold\"]\)\!\(\*StyleBox[\"AUMF\",FontWeight->\"Bold\"]\) \
(observed)\>\""}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"FilePathFig7", ",", "Figure7", ",", "\"\<PDF\>\""}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.9069104591318903`*^9, 3.906910511770254*^9}, {
   3.9069106631615677`*^9, 3.90691067119477*^9}, {3.906910959571114*^9, 
   3.906911013500827*^9}, {3.906911099192646*^9, 3.906911141125699*^9}, 
   3.906911338703451*^9, {3.9069113725539913`*^9, 3.9069113950147963`*^9}, {
   3.906911502657981*^9, 3.9069115031903973`*^9}, {3.9079269966207943`*^9, 
   3.907927004572185*^9}, {3.9086303997496862`*^9, 3.908630414320506*^9}, {
   3.945529011463456*^9, 3.945529030441292*^9}, {3.945529173419097*^9, 
   3.945529174109943*^9}, {3.945529222958743*^9, 3.945529224092369*^9}, {
   3.9456071594471407`*^9, 3.945607164337164*^9}, 3.945607269030692*^9},
 CellLabel->
  "In[2769]:=",ExpressionUUID->"8b223710-3ca0-447a-8686-026c706bd1fe"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470459136*^9},
 CellLabel->
  "Out[2769]=",ExpressionUUID->"00e24ccf-0fca-4d13-8f88-947d812f08d5"],

Cell[BoxData["0.15`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.94595647046126*^9},
 CellLabel->
  "Out[2770]=",ExpressionUUID->"09ee9661-c890-4a12-9797-05114bda1abd"],

Cell[BoxData["0.6`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470462966*^9},
 CellLabel->
  "Out[2771]=",ExpressionUUID->"60335b18-e829-4b4c-99d4-625b700b99df"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470464679*^9},
 CellLabel->
  "Out[2772]=",ExpressionUUID->"07b053e8-a4d4-43f5-bba5-75782f4b2113"],

Cell[BoxData["0.8`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470466135*^9},
 CellLabel->
  "Out[2773]=",ExpressionUUID->"bcfe411d-15ec-40dc-b963-a647ebe3f5c2"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470467538*^9},
 CellLabel->
  "Out[2774]=",ExpressionUUID->"d7a9b2db-c147-495b-82a1-e1c927e8db3e"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956470468852*^9},
 CellLabel->
  "Out[2775]=",ExpressionUUID->"983bb974-a723-454a-904a-d2e9824ffc82"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          Opacity[0.4]], 
         LineBox[CompressedData["
1:eJwVjnk4FAgDh+lAIUOJdKmP2LSUr1zb+GULtTk226aaKHfPyJ1SrLN1jKGs
jolI0ScNRe5jGc3UCGmMo0np0RiaxhiDNaShr/3jfd7n/e/d4h3i5rdEQUHh
4nf+NcvUSvMC84xt1MLCNGGUCA67NdKs1RY6Zurbhb6lmEj8HCBmuMD60JEQ
M8UqfCVcohQQ3GGZNFkQElyHuDMLQ+0MT5Dmnd8WGjRBkcfIvWzlA/mw2ijX
rwXMb0vYVwkBWLNsnef4D63408h+qkhIhr7TOrOghGdwdE3Z2MAIxv8WWDtn
W5i40uhbFOAUhsPNJId1Ihb8Xi+3CbeKgEvYPrLB0hcwmnX0SyFcBCnJc5Cs
2gYV1c/zWfIodISfO2qw2IbPmyjX7ggvw1hUY6786SXoDp2NFYxYmBTYPN53
twMOZTXGnsfikRCytM0stBMWlikRPk4J2DlIzUqzeQWdw8Yrgq2SwKL1P8n+
uwtvw8m7kwgpMPlAemDE4qBdbhOXqpSKPn8Vd6JuNxqSVdsz5Kko92Gcv0Tu
Rm5O6WmakALPxZhtXSu48HgmoZQxMkFbm3jO1aIHLk4tfU9rriJAcatEK7YH
m8ccCaeOXcM37VvH81g90IjUJXk5ZYEQfNBrr0svpKn10kCrbLSbaMYKj/bh
afnX9QmEW9jxY5fzV8s3eDTj05qUfgvbi8SHZkLf4L5Np3+yEg1nlDY42JW8
QTbrTkW6nAa3lAupwzo8nOcRHW8Kc7DqMlGfO86DhUJ8OJ2RD8Mqn/rmuAHI
TlJFSg53YcveyO6pHEB1Nc3bu+MuZs7PXfL+NICc6uMlaoEFqO9Lv/fF6R30
AsNuMyPvwVVUOuCl9R66/fcv7UovhKX1B/WTqYNYU7rcRr2mGHaf+neH6gzh
/FtVWcNcMbbGDArdTIbQq6T19OxPD8FZlc/WxBCyvTZtZzEeQuYZbLfNfwha
OpZ60R0leJE5uVD3dAiaiWfnhUN0GOvn35m0/wjlUj8P/vJyXNxwh5Xkzsec
A6FoqWE5MpJdT1T78yH82CAyOFCO2MV7FdxIPtp1CFEBieUw9ImndmfzkZnU
8Jd4sRyFiw5dI118rCFptMlmK/Bo2bPM63bD2LKy3lxVVImmiFskOz0BtB74
XNqxogpXcvMtHI0EWLJvFcPZuAqOlYSfbXcLIIj0cb7mX4VQQ9MgBRcBHn5U
P6s9XIVm5uFMXrwApvXeeZvfV4Oa6fvb1LAAP51VU9ndVYsc97H2tIIRcJVP
f60T12K/kr9WFX0E5OIKCVG1Do9Dqa49NSOgjR7rczxYh8ya6Hlp5whkvvfu
k57VwWayy5w+N4JyLwtiUk09NIklQSYuo9hGOhPOzW9E0ZCVPXdyFFouVe9D
Q1qQFB4dIdgkxPrpJ8uo11rQenUwnWIshAGNvqO4ogVutTqDRuZCWPLvxwxO
t2D4uZPHQXshTBsPrjLcywBnwHD31kAh3FwtH2cxvndDNWd/tRB3Lq6RkF+2
Ynz1ssyM/Z+xs60raOM7JuKIm028fhGh75S+xTUREzfXvksuOiLC5cmwxSXz
TETpJJ7gHxeBpad9VajLQkCWUrRzgAjHg0jllcdY8Jc9+ZWfJEKClnDqEJeF
LbYZu1SbROCeUoy68PI5zAl7NOOMxxAx+d/E17VsKMfvspVPjYGjMuCb0caG
fzqlIPnLGEz14x0Pv2VD1yD9k6qCGCKXTjX2PBtNC88tlNXF8C71vdVMbAMr
2fh06zYx3AJulJYx20DWSRxxPCGG+aCsP/31SxioCUqaGsSYaqs3OfipAzbC
XTzD0HEU8isFtbMdmCV70MIix3FUXpZnpNKJG1mqXvWXx1Frdl9D+YdOJK81
1iX+OY6Ym5Tp5+ROTDvLwrRzxqHkS2rcL+kEjRlLVmOOQ++b/BfMvILDJNvZ
SEuCe3r6e3IVOeC5f8wrfCABRYVNt1/BwW3Zo9LGEgnCZUFbpQQOTLS1eZwy
CQ5wGzXs9TmgRg+mT1VLIExzF0lsObge4Uxb/UIC0y+Zd3+O4WB/a8SLVyMS
NL1ZWCGScfCYcmOz6X8m8Ob6uw9W4m4c/3WfluzGBDawSvmp/3RDpmDWSb89
Ae/pP0Z58m4EGa+84Zk3AfERfUmUOhfNlGMnG4smsETDb6HOlIuKlqv8I5UT
2JEmWW8dxoWnZYrHP68nkPCH4glrGRf+1s2bMpZKYeJv1GOt0IsnVyTKdy2k
iL+wNUyu3IsXDcttVayk6E/eqNGi0QtJB/X3UGspEotXHz6wuRcDMcomxL1S
8ITfnrnY9kLjiUfsSzsprgTynvrE9MKl57RNmZMU70PT/sqY68WrPDm1yEuK
jOixIx+lfdgRwTsUlCqFWgbhXcxcH3yvT8xQ06Sg5u/x1VXox+xKOp1OkYLS
GnfBVaMfwdWFe0apUiQrr8n9+8d+6K/P6XLN+v6bvVdwm9yP2p3hgTO3pVDK
TXt8rrcfqbVmxSEPpfg/yRW2Og==
          "]], 
         LineBox[CompressedData["
1:eJwV1Xs8VPkbB/CZkmulrMg1ikQtSSlRjxqVLsidLoqQIqkkdyqUS1KrX4pu
y8ptUyq2DJJWSLIrDWbM+Z5ZaVg0Z5FL0u/pj/M6r/fr+zrf1/k+5znPR9fn
uJPfDBaLVYjXj/v07XS3Iz0fYNVjv+nLRRIIaeFdTB7+ANybn20vl0jgOKOb
/WIGDy5sTx++9EACQWvLa4x1edDYdHBffJkE/OqEsgpePKh0i2+yeC4BD75J
dh2PBx6yM6PYjRJYbRz3SIrwYGH/nd4JtOLZltdbxDyIK1+2k2mSQP3SYyOv
x3kwL/Meq7tZAmtOFtk1q3WAlf61ZQWtElCS02e17+0AsVRC/ZwOCTSbq/v1
Uh2wQ6d4fGGvBAqSj0QZiDvg+1TYVgZ9XvDHlQBJB6T8mXej4ZME1p9zr+5n
dcJurTuOoX0SKHybqfpZtxN6m3YpvRiQQJKvYtPYoU7I/BBtYDgsgU1XpUzk
xJ3gGGepZvNdAivqYyju505w3rz8AINeOPnlcshYJ7Qn339/i8WAxLtPwpPu
go65exxG2AzcNW0py9fvgsFgo9TrUgxMt143tznUBTmLB9wr5BjgKi7fGCfs
AhfZnapePzFQwMkbWtXbBZl1klYGnXlG607vYBckP/J/maDMQBClyLL/1gVP
Z9bYFSxgQKN0pFZTkw/Pkidn96oyEGlfveW5Jx+Cf2k9ZKXJwLpLjnaj7/mw
cH6shpseA/EzRlPsu/nglnguk49uOJPVcP8jH8yrTZcf1GfA04fi7PnCB+Xo
p2X+S3G/tcfW16gKIKjVdtWRZQxU0RcNkvcIoJ59e5XNCgak3Vf4iXwEYLzD
tKASbd/87lfLQAFkWvTDqp8ZEJaraA9FCWD3vp4PmsYMsNLylJ1vCWCh/ZWi
TyYMbDZ/wdYiArAqo/RczBhIKT4EYWIB2Ptrdleh23RkYt5JBGAQ+Kpy6WoG
fBXsx8+yu0G26+DgKDqR8Id6F3dDWKacYYo5nidljP/Qrxt+aQm0TLFgwI4y
Lrf5txvctxld6t/IQLXrlDBsuBtsPjvorAMGVjY3yhR+7YbGmJC+BLTyM1/P
ObOFEG96UVvTmgHB1ZtT7SuEMG3mpL5pE9Z/qzTncLAQONTbZD8Ono/bFngj
TAjBiRuv56N3m93LfBMrhE+OJsJe9Godq16Ty0KQ5RxT87NhYGriRPJ4qRB2
u7ru9NjCQNrv3e+SGSE4WZk0q23D/lhSPF45IYTyOtVUe3TIzXDdITYF1lxh
0jm0y4WfTjkpUZAf2rVGjNb03q6iYUYB23jzmSJbBtJ5KmBnSUFoUMfiTjTL
vudwHIeCmt1Ds2W2M9CzPu7ZP84UxI/53zqILlF+uq8klIJ7x/Sfyu9gQDv1
XKIwmoKAJOc9ZugM9u4H8xIpECbcgL3o0KH+76HXKEiqMH9TgLZq0MndUE7B
INt0YP1OBh5sHHpzvJqCuTtvXt+P1nlaOXKvnoIbM4oT4tBSv7ptleZR8N/Y
Bb1a9JuotL6WMQpuW1yKt9yF/dN2vuTUdwpyeu65uKEDrlWtTZtJYLwqIiEE
3T/wZHKlAgHDe4rjv6KLs1bum6lIILJGw6oSHWRTUtWuRMBmzQXB3+ih7Nz4
SHUCy61VzVh2DJRuWyTapU3AVi+5bwE6ZPgmZ9FiAjLTI1NG6P92XJV+ZUjg
2RIXS2f02ER82hwLAtP/7FfPQf/x29QgZUUgvPkttwQd6RjuUGZNYL9nQBUX
PVVwXMndloBA8rizC13l8u8pw10EQmQfjorRsazD7V8dCKQKg0K+oFkeXll3
3Qk4dVedU7RnoHZm18TJvQRG3HLUNdDnSl33bjlAYJ1p6/ylaM7ev7iqhwj4
74kNWImWkrHT7vcnUFT4Rns9+s+yhjjuUQIqlGA1B53kZUOnBxOozv1QtBNt
K/9is/dJAn8md8c7o+XKLfPMwggEzVap2INu8q6YJR2J9crIs/NGp80xO9wR
Q+CFz+82h9F2zx40FJ0lYFXpkhOEnutnZBSTSEDjebXLCfS7efmpDskEdh1R
DD6NzuDqDupeImDPPSoORzsG3LIfySBgnjFSF4VWUlZ7WJ9J4F1xKysW3VaT
Of9GFoGsmsV34tCZgfNOBeYQEPnNvROPdlVNe7/hLtZ3cQXrLFqlTsZ8Xh6B
Ql/rVz/WecHnr4vuEwg4/7bvx/NZ6t/HnxQTcKg9e+LH/p71kXsulBIo2xG/
NxqtfvJLpedjAurmA/cj0Hytk1orKvB7JIjdwtA5jYOx088JxOhkBZxE7z99
hLRWE9AkWt3H0Nq6HzflviRgdD7nSQCaaj6Ye7qegN4T888+6LvhAinbJgJq
soqX9qF99Dz81VsIvJrelu6KXtLa9nrgLwJXZ0gN26F7ohwMa9rx/QL8Kreg
8w3epFzpJPDzifRPVuhlcS/tzGkCbd9rAg3RfUYbS2U/EniZM/uVNrrow7N5
fDGBJ3KF8T+hVxg/aouTEOBkexh8xX7Lnqz9mjdCoDzW6PMAWv7130uaxgl4
8cNZQnTfgZFTymwaMnvWsKrRHitm5VjMomEHd2LoR783jC945SVHQ+GhHoNs
dP6VtcqF82kw2cQLP41W8bK1allAg0at2RVvdKKRp++wGg1BeQdGdqF96yKf
bFhMg+qX5mxdtO5olcvfq2goOJB66iX+rxm1LdFj5jR8c2d6C9CsdCpP05IG
88KT+elo4VL2qD+HhsntgfIe6BwPm2tfnWno21Z0VITzREHftUrHgwbpZG9O
HTqS8fu4ZR8NKQ4RR3LRnikX1mT40pAuG3jbG63CbWrXO02DY/HT0nacZ0kX
+d+2R9Cw06l17CF61GVA/3gMDb6zU9JT0e8H54Q9S6QhQym8YCP6yiJHFfv/
0SBanXQ1B+fp7PM8tzMVNAQ2uHqvxfkb5SCOzamkodfi1m8y6H6NifzaGhoi
7wyu5+H8bnyiPqbQgPV2sfYMRSf17r9+twPPd7QxIH8rA+wdPbzGCRrGeZPD
fZgf49LydgXfaPjdbfm2x2hJncnLJLYIjOWZmdFo4YaoEo6cCCIUyp4roLmm
SmerFoqAE2Gto4d5FK5mbfRorQj4XrM+rsM8C/ngd+eypQjUVq+jxjHvDv+S
qhwMInCxaLX5A+02hzdttE0E4tB7TmvQq9nBbXluItjoTaKWYV5KxNnRWadF
IOXgpjVsxYD4t1omLEIE5cry/EI05fPJ3zVGBFYSetZBdItglaNSIu63PzC3
yRLzp7VRPy1TBAMVFOvGegZuHz8m6LwvghOPcibnYn7/H1j5X+4=
          "]], 
         LineBox[CompressedData["
1:eJwV0n1MjHEAB/DzJKLTnSS9KFJRudV5mSV2X8PYKW/lpaW2XKW5UTJ3Z1LS
qiM0oUnK5iXkVORlVLvKW8J0hsRU6557rjvX1fM70pvi8cd3333++/7x9ZGl
RiZRPB4vmMv/LiGp4vZqPcKLZmqSQwk61VE+yUQP4Z2EqHuLCXKSnOKKB/SI
TAjERs5Ba1qKW4b1qL+akG1eRKAYlwhFFA1R72PBXM58RdBf1plGHRMrzQ0h
WC6b0HFkKY0dVTnbxCKCCyuriwtUNC7fcCmf4k8Q5iH/1JBOg72VW1/oR9A1
6Cckx2i4PtkU4s456EGJOuoEDWpL/IL5vgRNgXlKt0s0ItMaE0N9CPpc47Zd
q6VRuTckWOJFICVThY/HaJTyPr9sdeH2t8Y0fZxgQOVFm2AdZ23lnYPE3gBa
915bN4NgiXzDZ5GTAbGKheHlzgRe9MmS694GtDtG+KQJCcgnB/9CGJDSVvHV
4khw6cmksH3HDWjTnF+YQhGYj1GJ8+wZeEgKb2msLO5uSpYNOzBQqTIfTuac
4vUuXsdnUN1ZgIReFr9qi+IyXRgI7u3WuVlYjA8E7Pzmy8Bb9rozw8TCed/m
DedWM3jRDG0IzWJldKmYymJglBupJe0szoqXjXWPMPBzyI+pa2Txil+zIsq+
B1uyvXvnqVnYOcobZo33oE2v/bNOyuJQsOz2MDFB/vuobpU954xry86MmMGP
nq15vqcf6X3eUw+RH5g21K92a+jD9FN0Nn/MgvAOneXAsBXfI0zxz+ys8Oim
qjMWWFElDsx5O2RFfnOstnR7LwSraiLyqH58eJRV9EZmgTJNFXNhpB9VW9V/
DWk/MCVRa+xSsrCVeBbsP2zGHH/m4PsRFi8kqop3MSaEDlZcNSoIMs2nLWGr
e+De5Xx95yhBwdOti69QRox9cV9vU9lw5f4u1+MtBqTTjWWeNhsChqrWFnO/
aJrIby5T/gRfOsDcnK3HqNPksq9vfiL/o3rWeVE3/gEZ9XgU
          "]], 
         LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA+U8Ix9jO8z/gAXBDAyHhPxt/gjFO
ePQ/RGrsHbFQ3j/G2a+C4fv0Pzi+zKMzGds/dUV7dp529T8c6WxJmvjXP+vG
6jy0+/U/yFwxwedv1D9lWfil83f2P+BfkKqR/9A/ef6lwcHx9j94lvopOfvK
P1S596/odfc/qOPclMAMwz8zhedAOfH3P7A2e1PzqbY/hBjh4F/z9z9Ahy5V
lWO2P9Sr2oCG9fc/APcxaiodtj920s3A0/n3PzDkX8AtkLU/uh+0QG4C+D8g
TUy8mHW0P0K6gECjE/g/EE3V4fw9sj9S7xlADTb4P6BqxrHJias/o4IT4DM4
+D8g3pjOxPmqP/QVDYBaOvg/gAS5K6Vpqj+WPADApz74P6CEtIgVSak/2onm
P0JH+D+gqyD5swanP2Iksz93WPg/ANGq/eB8oj+zt6zfnVr4P8APZIos66E/
BEumf8Rc+D8AfSfcXFmhP6Zxmb8RYfg/AG0zr2s1oD/qvn8/rGn4P4CqyGmC
2Js/O1J539Jr+D+A0TgXZLOaP4zlcn/5bfg/AJ4kzw6OmT8uDGa/RnL4P4BL
wB2/Qpc/f59fX210+D+Ai/qTxByWP9AyWf+Tdvg/QBnF05L2lD8hxlKfunj4
PwC8xswp0JM/cllMP+F6+D8A/5luiamSP3YOA/w=
          "]]}, Annotation[#, "Charting`Private`Tag$417098#1"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          Opacity[0.4]], 
         LineBox[CompressedData["
1:eJwVxX80EwgAB3Bc1rR6VreQfph3xU5PP9SttdK3e36FXV29oyK/Dae7iDjW
K5nyMz+aKxs9Cu+RH3ebY2y8DHuXcH7EGtG1dG8mTto9tsXq7v74vI99eNwZ
tpmJiYnbf/5fvoexMbkn9BgzVaMjq10x/KQraW/XMWRSiUFydgPecWej52Un
oSVVjEeZNWOFnJr7gHwWBtI1WX18G9JCjao+WTCGLUkdFFoHTMdlZRxGBGL0
h9dVxnai55PZk0JyNEa3vRRYOXfhlqOHtloTC9sHRmPMrW54ncraLpVdgodJ
JFMh78HN9sjqaNZlGJ8n7tW8k4M9ZM5MYCTCeZljqrX4HY46L3YW+Sck0oTc
C5ReEEmzH+6spsAvoJnOJD7F7I7covsaDg6Ijo+wtE9R7znQLpJdB+NmXjWh
sR+ejWJasP8NcOqNVR5pA6AfykqMYKWj5ERdhMHnD1j70iwuMTKQE9V3a2x4
EBMJsQczyFmQrsh0Q8PD6FtlpmUTspG79JjTtGsE0kxSX/5qNtZv5fA6U0ZQ
VtoQwtfkIslFH9a95RmCuhdyG2UFKDg/yRv0HsVJVqeiSVwImqbU6TpvFHZz
XuQL/kUov23B0k+MwjLJJjCMdQdD58bj0tljWMyWLF5kFOOOMZm6O16BJuHK
1nRyCQIi1T6KQCXqliK6MvJKQHVjfbF4V4lK5kBUJoEP/kqFIWRIiWL5fVHe
Kh+TM3sGzhwfx5VxV697mlJEb/bdZ751AnSTGwn1snIcfaXL/yh+geWA228J
nhWQ+tLir82/QEsLPzy8vwKPjUeIqfaTKG0592j9xQdw4L76/J+cSdhevCzo
SXqIyFlnpbvfFGyeV6buz6tC3lB7fKnyJSgN5swN4hpc8g04m8BS4coEaVmq
r8FmwX4HepgKY4RNTTFHavFp0BCiTFKhOGyHk1xWi5JviD7N5Spssj5ke7X/
EVZijFXqBRU2cmM+aFT1cPOkO/JzXmNtAzto2lyIFx5H0w1109B7kqs/2yXE
1+fjNlPbp6F5LX27010I0qhf6IH+afRZk1OiuUJ8N+K2TJ2bRkGGlDf/UQjO
VcPCdqc3oARa9i7rRJhKLr/cV/0G9uskLqS3v0EjdCTaFfyFIzHriQcHW1Hk
XejtwVDj2dqQlbb5VgQFiyj33NWIrREtuJLasGWDu2DqWzX4an+F14k2SAg1
23y/V2M58mFlYHcbjvLuUoUCNYRhdNcMsQQd9ACzOr0aDoGhCc/K29GbfKpl
5NcZbDrZPBUf1wmuy5dxRMIs9vUO/rh9sgfimdONhuI5JL4/wB1qfQLLeon1
mqq/oe2V7D4x0w+OQzH9jeAdHtpSvyozHYZ/S2bU7dpFKH+e/JMxP4JPJLGO
F/Yeu6McRw+bjMHcrnHNThst8q/OnX69qMBTQhQozVpYlOX88sPYcyxlWVmF
6rT4Fy19Epg=
          "]], 
         LineBox[{{0.35769113018839965`, 1.1865263203636045`}, {
          0.40478734580600323`, 1.2379488793297777`}, {0.43487293768540125`, 
          1.267816968875002}, {0.4674846438533578, 1.2978947183109673`}, {
          0.49950001533028104`, 1.3253287717623254`}, {0.5293578276263751, 
          1.3492193425148555`}, {0.5617417542110276, 1.3734442906108955`}, {
          0.582989626429014, 1.3884559116284694`}}], 
         LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAlPFvMNiv4j+7xZ6h3zn2P0nxChC2
/eM/xCrlSzOo9j/pfwJkIgXlP5RAPPLr+PY/kDA2/eH65T/43u4Hlj/3P8YM
sjtTBec/K5qJ8nuH9z8DC2q/F/7nPxCrRmR3xvc/dC5iqPnx6D+UsB8WkAD4
P3R9ojaN+uk/ii99ML47+D977h4KdPHqP7AsmwOQb/g/EYvjggz96z+Sd27/
N6T4P9xM6GDCA+0/TIwpVI7U+D+uMCmEy/jtP2FTKUzM/vg/D0CyTIYC7z/e
HegyqSn5P3Zxd1qU+u8//3QPiwlP+T8JZL7m33bwP+Hnxh1Scfk/HyXlcs76
8D9nzGHZ/5P5Pzj3qaHmdfE/TtKP7xay+T8Z3xKjV/vxPzn9IFdY0Pk//dcZ
R/J38j/PrXLBd+r5P3vjwJ0b8vI/CZLggikC+j/BBAzHnXbzP41PzS7NGfo/
+w4HndnK8z8zL91GwCf6Pw6ovPU=
          "]], 
         LineBox[CompressedData["
1:eJwV0H0s1HEABvAbV1mxFbNpbXGbNq0NdUahnkvCUOz04sxmCXUr0ZV7Id0h
ytaWorqbuC072pDVSTmWt7qUMru0Rc25rCN68/r73lfRtz+ePfv89WyPID1H
nOnE4/G2sfxvR4LLq4+D8yiQWIoy/Ci2qIt3HlYuYKLkduDv/RTmkZZi2/IC
jjn36auTKPIOFshr5YuY6ffTXUinmDFPh7cuL8LQ4RJmyaXIlBDDvGIJ0qlr
nY2XKFQrhp6e2SVs52sDxsoojrRzLVN5HJLtNllGBcUVZdjcBwWHBxovl1Jm
Y4g6qE/Fofl0+1UDs3vb2vaaQg4RvZFRduahx5694lIOdutAd9ZNivgm4XBn
FQeZz/fmk7coIvU5pMLI4W3Mp/xDVRTC0knRnlkOPYrpXNtdtudlG0+b59Df
0GVdZR5uHNWULXLwCbgctFVLIbe8637v4OCa+PJGCrPJu1V0zongPn/MzcIc
YdKI6jwI/Bejd3TqKMS/Novcggme/Yl1LqymqCv2GBfuJtDHrA/WMi94umlS
QglCLYIEI/OdcF53wz6C8ehTQd+YR8vtiIgmGBQ2DiTdo0j3NUKRTLAUtzHQ
t4b98bTJWpNCMGGaeb2XmR9Xr36RSnD2ydHY48z153Vdm04QaM1fVsqZp5+r
0SQleKhByE/mMLHKajlDsEH1Y826WorrX2VqRzZB7OfIDm9mf9esrigZAf/g
35FEZrU+LS37IoHCkXFAyjy0S7JaKSdok5dUFjELzGK9SUkgdU99o2OWSeJh
yydQCuYmHzH/AyDmRUI=
          "]]}, Annotation[#, "Charting`Private`Tag$417098#2"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          Opacity[1]], 
         LineBox[CompressedData["
1:eJwVlHk4FAgDxocttJRxFB/bpmuTLFsKtfHu88lVko7tkg5H7CiFnEmhkKOU
HFGRtBK1zmFcM45tDBNjdjDWsWMajDFmJn2GatT6/nif93n/+z3P+zy/tZ6X
DvkoEwiEsMX8v9vMrLVCW8/a+i5x7dYi3QKL3hxi3mwLw5MKG1ZzGaSxk75i
miva1R2zk9PI+EyMSMonHsMb+wlG50Idrp9d4HXQTkPUYKdMqGqCEpeWG2nt
BYfDMQlZn2ho/apMv0v0xamx9KDcwBbc2mQ/Uygkwe/HB3aGjFY4HkhYXUcL
gGQE9s9V/8TNeu9CX5dApOf1naRvfQOf7qW7gqyDkXmoPpq9l45Nc44+CcQw
PPMeeK9/mAE19clP9xTh0Dky4ce278Dk90lpj4SRuNy51bHarBMlDsz6clo0
gmOqWyTjTDi8IhufPnoDDLfooeGat7C0Sgj2colBeJPq71axXdDbZ7wswDoO
Ko3G/HxlFgaCSNvjiAnodn34xxffHnQodl1PVElERL/9Od2GHtTFq3ekKhJx
hLMQ7baCjdyc0jPZwiQoX6r76fkrNjxaJEmvaHewO4Ea+sPff8HVhdpbQb4L
9aAz85NrOVgz5Ug8dTQNz+I5nlf8ONAM0Xc/53IPVSO3/HVmOJAlUmT+1ukI
eOSaSJ3vRUXZZ8MYYhZYj9WPswf78XLWqzkuOQtduiZHmLpcFOxino9XycaS
sBNu+vu5SG97VJ6syIZ8rvJ+XT0XV7g2jpnCHFSIIk2K7w3AknAjqIT2BIwN
T1sz1g9CfjJFpOKQB76Ve8/LY4Oors729OzMw8OxHTd3Jg8ip/p4sYZ/Pjwc
GCUs2SAM/AMftoY8xYeTIoE1eQj6fQURW5OfYbDYUH+r6Qh0S5fuWk4uWvxz
luL+Gw9XBtTldfNFuLJdcdH2Gg8cFe0Kv59fYB29wWUhjYf0c9+btNFewEkv
9Y1WLQ/aelYGVzuLoe9IjCtcMgqtWL9PQl4JIrkNa4ezRqFa6uPBX1oGBqfO
+VIxH/MOxMJvNpbhH9uAkfxaPoSjdaINe8rAItMsm+h8dOgRw31jyxBmmKfV
OMbHnbi6++IvZZgl+xzuMXoHXXfNdvlcORQNPJ0b6e+w9lvKNnVRJVaYknmm
FwTQfu4VYbqsCn2HG+u3RQig/MsK2n7jKjz0N6dvjhdAEOK1P+18FVqGXWam
8gR4Mbrcb+W7KhCjSDptbAHMKJ6P1wxVY8Qhjju8Yww/+2mobe+qgVjzW7eQ
mTGwVc98rhXXIKPpZlbewhhIReUSG/VaEDaXcJrUxpE9frTX0akWvICc60Pf
j0Pu/bTAvaUWKcXTNZl7x1F2ztImjkyB1yx9ZlX+OH5wPxvEflIPefaxjka7
CWi7Vg1dvkRFr0nOfPdlIQw//LEkJY0KHScFMTRSiA3ZJaZF5VQUXrL01Lkp
hBW/IGr4AxU7ov35FllCmNU7rdi4m4Z16XsoyxuFOHTA6vU92uIO5vxqrjqJ
R2G6EhKjGWCu04nImMRP7V0XVw+2omfWpszlkQi9p4ws00StEHZ9VE97JkLk
+8Avyp9a0dGdP/L2pQhtBivvCvXbQHHeSNhJEeH4RfeyyqNtqH3d1fu2V4QY
beGMM7sNwfISsnz5FNinlMJDGYveaD+cSYqcQvB7i9juGjpOWLu1TuwRg6X2
t3dqOx21dsUbg/aJYWZ0w3HfAB2koeILcwfFELkyNeif6FhBFtTPnBbDs9Q7
q8mmHavgKCgNF+OQb0bpq9Z2NHTnkyxKxNg2LO9L7mYgtE3Z/IXGNGbaKVuc
JjqRku/modUyjWf8SkHNXCec10et9qBP44ji1eNNakxMOJuMFzKnUWNeoKm6
mQlul8Nj4/5pRGUmffiTxIS9yso5gngaKt7u9XYSJkRXH0vndCUw+KrYi9m3
yC4eZ2t7S/DUwGhHrhILJkTC+rtzEiSp0Uvsl7Ew9ZqxteizBEHyi+tkRBau
vbXwaPgqwR52vaa9EQsjFgriiKoUwtvHRBJbFsa3XFj9VU8Ks4938v4bxUJG
xP19FCspGvoXlonkLBDsqgr/EyJF/4PBEWtxD16qnckanZDiu7ZSfuL/euBE
2X8wa0oKzw/XxrmKHlB5xgZ7pVKIDxpJwpezQbQL+ed3uRTKmj4LtWZsKO3u
r3yiLIPpbYnhzkA2uHOH3kuJMsRcUzqxU87G3Yz9o7GmMmw5v+mvnQQOuLxr
HQ/OyHAjdF2gQpUD6aoMwpezMvTFr9akanKgZ/yd/nlPGWKLdPbtWcPBNwOZ
09t8ZOAKv7a42nJgrT79C5Ukw01/boVXFAdh5lJFQYgMQ5dv30+d50D+MflA
TpIMqVenDo7KevFrt6+GV7kMGqnEwahFz6bKomtjK2RIebLDW5/QByPfXQFP
K2VIar4eekCzD1laFvOD1TLEq+rmNv7YB+ewzffs6xZ503cLHpL6wEtRMptq
kUEl9/brC5w+lOtQf/PpkeFf9ZHRMg==
          "]], 
         LineBox[CompressedData["
1:eJwV1Xk8VWkYB3DKkjHGMiJrmXYpkmGEHnVpmemSZN+GXEu2ImS9TEOjoSgm
lWiREpOolDXLhJahki7udc977pCl6J4iKmqe/jif8/n+cd7P+z7vc56fnl/E
bs48CQmJUny+vj8XHnMOHnwBHopTTWndYtjfyfsj490LGHqfLJ/WI4YIRu9s
0zwe3LisU32YJ4ZQs+p76/R48HaFWDeGLwZOq3CBvDcPBqsUswz/E4Mr3/Bs
K48Hqf4nrKYZMZis41ZKER5s3mpY+uatGBRTO9ttR3hwVeWuwvA7MbStCJts
n+GBudio9dmUGH6MvMZ+rNELnNRlr859EIOK3HKJHo9eUPb9PmO+JAOPTTU5
L6leiErcWPedIgNXM4ITVo70wio3Gblh9GHB3ZwgcS/c1DPxbFRiYONvLo1j
En0QF7dOdZ8KA6X/5qq/0esDxZWC57cXMpDur/hwem8fNBh/O6arzcDmE1KG
ciN9EM9/yDdfxYBBWxJV/6YPEgtr9YbRiz6+P75/ug8+D5meOrmaAbHvqJgn
0w+SIaPKY/oMnF/fWVWyvB/UHtWws9Yy8PnJKVObvf1wPzlB829jBuoV12zi
Cvshyb+/z9ES988qnjB+2Q8Ni1NODqNzY3WKXo73Q5XC+9/jrRgIpRQl7Ob6
Qehjp1S4iQGtislmbW0+iIYyuvjWDMTbNdrWuvHh1BufFca2DPyU5cCees6H
zWEKwl/YDKTMmzpqN8AHLq3s8hTdEZvfcWWIDz6azeNOdgy4+VEs9/d8sOq1
ifa0x/XMwjbeUxdAnkHvpLcDAw30Hysz3AXwxmvtlLkTAzIuBhyRnwBcSpr2
VaLtHnddtAgRQENe3LxVzgwIq9V0JxIEEHc36rSKCwMSmcWqjucEsPnakrAB
Vwa2mDZJ6hABcL6LGN7hycDRsr0QMyKA2Jayopvo7iWySV1iAexqd0zW9mLA
X95uJlVyANabiiteodMIf+LlDwNQJM5/xfXB8xyd5t/gDEC9/qc5rh8DbGpd
tc2rAUi5VGNPAhlodJoVxrwbgLBfKNHaIAaMHj+QLf00AG/7vpTFo1Vr/N0U
vhVCaZY6rRzMgODEmdkeAyGszKYFpvuw/ltlWIHhQgi18NrpEYrnq+8OOR0j
hFP0v24F6F0bLuQ+ShaC0vXG8wK0yRLLl4bHhbC+aJbvHsbA7IcDGTMVQoir
HFSwC2cg8++BrgxGCAn5jccU92N/LC2bqfsgBGrxFbYNev+ZQ3oTkhQELwrf
cQi958j3UbtVKOh6EjwzgNb23aGmtYEC/aNPzc8fYOAYTw3YFhSc6wgc6kRL
2A0GclkUjJQndc2iBzdya/5zpKDU8b2PcyQD5aq3PcsPUvDwwa1YiSgGdP/8
LU2YSEGOSKS9Gp0tueu6UhoFsvSqeQ7ogxNjXw7mUVDxfVtWIdqyY8klq2oK
1LybrhsdZOD6polHEY0UmF1Z7e6IXnK7bvJCGwUt3hu3RaOlLjpvleFRoLVH
fbga/Sghc7RzmoL2PG3W+mjsn+7D5VFfKLhvvV59Jzoor8Escz4BPU25bQHo
sde3PhrJE9g9V1ibjy7LN/Kcr0jgklbZ5xvoUJvyhh4VAmE5akUd6Imzl1Li
NQnsKSiZmkJXbFss2qlL4EDKonL5GKzvuzOsxT8QMHL//d4S9NufT8j8s5qA
iPvf3Hb09IeUTAVzAiutxwU56LuXZ8cpSwIXVnlxL6LjHQ7ZV1kTSL89za1C
z16NUHHZTkCazSp4gm7Y8ypq9U4Cp/3hrhCdLBHY88mewK2Ns8av0RKu3vnn
XQgkmLNtpWMZaJ7f/yHSg4DOzTUDSujfKpw8bH0I+Gb5PNdCszye1qvvJXC8
WmHNCrSULFt3LIBAt7QHbYi+X9XBrd9HACxCp39Cp3vb0MfCCQx/4YRtRm//
pmmLbySBiaFQ1g60XLVF8YYYAnlBl+N2oR/63pGWicd6vd6g5ILOVNgQ2JtE
YLTRUtYLza653nEtlQBHfdDbD/0dR18/KY2AjZqdeiC6S6nkT/sMAtH3C41C
0Nn1euN6WQRiF328Fo52CDpnN5lNwOf14fQDaBVVjRttuQRmZH9tjUJ338tV
Pp1PoFmryjcanRuiFBVSQEC+5ZxvDNpJPfO51XmsL3dr61ertcqaKhUTeNbU
lf7VvPDDp0RXCORQnuVfv8/X/DJzq4zAIR1lk4Not7Z49yMVBPglirqRaM3I
93VuNwmwTiTsi0DzdSJ1DO7gfZBYjVB0wYPx5M+1BEoSV64JQntFB5MnjQRs
Lf8u2ovW1RvafKmFgCO1JtYbTT3+9VJ0GwG2UlulK/r8IYHU9ocEtvgX2u9G
+y1zDdDsJDDuztv1C3rpk+72108J1HmfvM1CDybYr77Xg/v7ZzLJAl2y8tHR
nD4Czv/qXDNGr+K2sE1pArMe9usWo0f1N1UsGCLwauZsuir62osaJf4IgQHO
Tyw5tMG6ym6umEDo9PCoGPvt7MfmT8WTBKj+mkoR+pv2Z0sfzhA4YragtRs9
6jMZpSpJQ4P1/ZabaFcD6QJzaRqiFmVUfu33jpmF/3jL0fDsXtRYNrokx0y1
VJkG13MBFiFoNe/tlp0LabDRaXV0Qafpu/m/06AhT+JN9Ra0f2v8LasfaLDe
7emtjtabatjzzJiGp3Wapnfx/8xu7kycNqVhxa2U0kK0xDGqWNuCBh/pecG/
o4UrJKcCWDQsLfn4mI0ucLXJ++RIg0qx+dpenCfyy50alrjSYDgklq5BxzOc
IVtPGm6WLTA4jXY7euTHbH8a7vh//NUFrVb/sGdZNA3xsraRj3Cepf/Bn9sR
R8PB6z61JeipPa+XRyTRkBWk4ZCKfj6uEFOTRkNNuGyICTpnsYOa3V80yOcs
dDqB8/Tbwzzn2Ds05C4bWroW522C/UhyQR0Nin8ZBM3hvB7T+lDSfI+GS58S
5x6jH9zSnJbvwHrf6NLah05/6XXqfC+er911TUEEA5I/D/IefKBBz+RoNYX5
MSPzDfvqHA0vqmrlStHiVsOWdEkRuASktB1AC60SyllyIrgYuDlJEl2/XiW1
YZEIQnu6RBqYR4c0rPUrzUQgVZd7ZR3m2f4XnKLjFiLYkt1+YQLzLvDkn6rh
IIKkPB/Z62hnBd5n/W0iUH5qtHAN2kQyvLvYWQSBDRGbdDEvxSNnE/OjRbC2
bIga4TAwcrmZiYkTAbX/9LkiNOU3HOCUJALOzgMdTuhOgbGDShquV/uR0+SP
+fPkwfLMXBEsVI1oPbaXgcKIMEHfFRGcUTBokML8/h9AsXQ5
          "]], 
         LineBox[CompressedData["
1:eJwV0300lHkUB/AxRS1D5CVyTLUivWm2rPUy9a1YqpW25KRCrVBeVipvmZWU
RZvdWo0jMqdEb+s1lZVt6cVoJatF5bRFzzwzpDDzm58SHeyzf9xzz+ece++5
9487L2T/ljA+j8fz4eL/XED2i7oqFYgjJd8HfUfQnek3by9RwFWPml/eSZAe
ZhR09r0CkoZaHQ/OizyazzaPKqAa13r27CCIn1hlvITPwn+dV7s5Z0H8oknN
TBbKNQMGkgAC1xCdV8lOLFL1zWbZ+xNIxZVnf0lk0cgr2Tu5kcBtdmRng4SF
1VTz1EzOPSPzjUkqC5h1EyPOi24UZPplsVhcpu639iG4tzAjwTKfhaR10wLH
DQRDFkFbL9axeCav16zwIlhP9I1rxlnIA0Oz5Cu5/dt23OvQUeIZTWt351xf
/ttBoquEYGlw2nUxwYrIDU+XGCnx4z91hufcCWzYEwXFQiV09v3LhrsSkM7p
dr9CibzlroWME0F+rZ5bdJoSk9Nsh/YsJuhP5Yd+rquCR8HcyCILgjLfvSGj
01W40GGYOG5OEGPzePcTgQpdbkL+ds7DdblBR8xUcBGQHCMzgon3Dtte2Krg
Xb+t6JAJwczoTRty1qowaNt21E5AIA4oFPGPqjDjYbzcQYfgtMh5nBlTYWOo
lc31fg2aBNXufrp9ONxdXmFZpcEUg8iGWRN9mFzl2yA+qEGcY8jVUfIGZ7YI
zjg7ck656PzzWD+Cjd1FlbVqSIaE+nHkLXZVGRlONVHD5CR7TDD+DrJcdWzg
N0N46fNm9/0pg4jOn+cUcXgQFaKF6S0fB/EyVeKRdWUAM1ZX+2Tw1bCNOT+7
5uY7JBxI3CEdU4Onfzn9yYO3+Cy0vrcnQQNPPzfT7Y/6McdOdfDvMQ0sRnId
a8vewGXkWlFvPMGTotJYe2kfrHpmFm/7RPD6QOzvJ7b2Yvy5lbc2UQtNRPK5
aGsVJOxdmbVWi+Sq1ubjL1jwjMMvLx3WwiVqtGK4k0WG2KASH7SQHvDLDm1j
cTrX/+6eMS0clR7L1jSyKPF+qyjlUzyOGjQdKmfxuNTUQWxKMaHb62WRxkIY
F14d6ETxrM2h8bw9i+ILBn/EOFP4TlNlqueycGitenDUhaIpVLxmlTWL5faf
OkvEFD+0h0m7ZrDw7jo1MuBJsfzk6joe9yex4tviFH8KH9cmjbBFgXtTBQ9l
CRTBOmZROTEK/HTNPSE7iZs/55TV/AgFtvpG2UmSKa5qMl7d3KNAb96j4wFH
KCrsz1/qCFBAf/GJ1aYZFAPib530PLj6zXp1WbkUObkSN8xSwObDlxGJeRRe
wtNf3Tfh+gvCLMPzKQqtVes8BQokKRsTPGQU7RmTV77WUUCWeHzFRAlFtuyO
/8p3DHplvPJDNylq1gcH8RoYVK4VBYbUUKy7xEjjbjNI6ttlsLmWIi5xZ0/f
DQb6XzREON6h6LLoLmu5yqDj6ZClTT1FePadZeJiBoXJwr8M7lKImsXyUhmD
ZY0p9v0PuP6NrQuychh83Ff+9Lmcu6eleng4m8F9w1fpTQ8ppKnKjt2ZDE5W
C5xuNVNsee0jb0ljsOvPW3m6LRTV0rVJkykM/gPa9GnV
          "]], 
         LineBox[{{1.2380416457162007`, 1.6448681982297138`}, {
          1.2386321455017926`, 1.6449627523010655`}, {1.2391039132332065`, 
          1.6450381770066003`}, {1.2395756809646203`, 1.6451134975549406`}, {
          1.2399766835363222`, 1.6451774381718482`}}]}, 
        Annotation[#, "Charting`Private`Tag$417098#3"]& ], 
       TagBox[{
         Directive[
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          Opacity[1]], 
         LineBox[CompressedData["
1:eJwV0n9M1HUYB/CbVBOECojJ9YtkFOWmLg/QhHozIhN/Vd9AueO2E5osf+Dh
mRwnsC+SughSo0yZEhG/omh0YRpHJUd4MFyGcHKJeIAFJqw1+Hzvvh8+pvX0
x7Nnrz+ePXvee5bkmKXtCzQaTTzV/90XaD4S5GHoP+c+1CIJBMUZ7iWSA81N
uXby0G/lXy+9xjCsLX5O86bAmZIOo/Y6w6Wctwc2k7dH31608AbDlNGcVUNe
3hvZ6fcyRD16on+G7Hy4UOu+yaA8tSnjvXSB979r7uv+g+Fk+a38YXK6wWO1
TzHksW/yYzIEpuoTho9OM0zeHX+8ixy0yleVNsdgfyL2Wf8WgaW7zY3ZCkPA
yp6RtK0C6+tun7f5GSp0N3bXkCsWeUdbBEPuvpMrUjMFgsddzwQFKIj9tXPF
cb3Ag+WnHP3hCq54E6KijQJh1xNvbohX4ElZ512WLfCYXPb85kKF5mLY5E4B
17W2sok7CmSTlPNhscD+V4oKPi3w4ZGnv8/aUSEw45pOOnvHh8uLT93traY8
9LyRWf2oSo2U6xoFbPcanc5ZP6RtsXNDbXRvh9r2534VB1P2xhs6BA4VJs5d
taq4Mtrcf4DcvkqO+9mmYrhn3frT5LBzD3TUlKjY9aR74Sh54NuIbumwioeS
st41OgQ2turcP3ys4nRxUb6+UyC11syPt6vwNex88eUfBXSHbyW/MKtiesim
83TRvsiJcRNTMRvw2uc+svurkdIjPhVpFSFquFOgYPCXrqF5FfGt6dLrZEfU
2eQ9Czgubcsb6CWnOEqT68M5tr7h+cveLSD9rU0OSeCYyBy5aOkRqC8LH9et
5uhrqOYfkJWIkFLDGo63lttDW8ifJGm6ml/iCGzw+73kkfIppLzKoR5bczTt
okBOTDusmRxRX9TOaV2Ux/nWsRoDR/Diokod+b4NTXKPkeNE6GTwJnLT3uoL
odkczmiLUyZP/ySjdQeHZ/Ty/O/kRMk2NriLI+5qcd8/5MpJizyfx7Fvtbsk
opf+NTj3wloLx7K6yjNryXKtyZT3DsdnGcr9JvLASv2/HxVwjA2GbbGSl7ik
WkchR9WemcpjZIt+IyYOcNSVHPyymfwfjhXTNQ==
          "]]}, Annotation[#, "Charting`Private`Tag$417098#4"]& ], {
        Dashing[{0, Small}], 
        LineBox[{{1.237023938549952, 0.5366912326413609}, {
         1.2375534428827137`, 0.5359253525459786}, {1.2379997038560744`, 
         0.5352798764361602}}], 
        LineBox[{{0.35671536488227706`, 1.0411221056669735`}, {
         0.3572032475353381, 1.0413816675239427`}, {0.3576911301883995, 
         1.0416412293809114`}}], 
        LineBox[{{0.5829896264290146, 1.0764303006681895`}, {
         0.5834775090820749, 1.0763505207307482`}, {0.5839653917351371, 
         1.0762707407933074`}}], 
        LineBox[{{1.237023938549952, 1.6347048538327271`}, {
         1.2375534428827137`, 1.634789845730698}, {1.2379997038560744`, 
         1.6348614760550777`}}], 
        LineBox[{{0.35671536488227723`, 1.185394369393632}, {
         0.3572032475353381, 1.185960344878617}, {0.35769113018839965`, 
         1.1865263203636045`}}], 
        LineBox[{{0.582989626429014, 1.3884559116284694`}, {
         0.5834775090820749, 1.388792599354104}, {0.5839653917351364, 
         1.389129287079739}}], 
        LineBox[{{1.2370658804100783`, 0.5466306065396991}, {
         1.2375501104593332`, 1.0916383453694758`}, {1.2375534428827137`, 
         1.0953890348077864`}, {1.2380416457162007`, 1.6448681982297138`}}], 
        LineBox[{{0.35671536488227706`, 1.0511221056669735`}, {
         0.3572032475353381, 1.0513816675239425`}, {0.3576911301883995, 
         1.0516412293809114`}}], 
        LineBox[{{0.5829896264290146, 1.0864303006681895`}, {
         0.5834775090820749, 1.0863505207307484`}, {0.5839653917351371, 
         1.0862707407933074`}}]}}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox[
          "\"\\n Force \\n (\\!\\(\\*StyleBox[\\\"f\\\",FontSlant->\\\"Italic\
\\\"]\\))\"", 14, StripOnInput -> False], HoldForm], TraditionalForm], None}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"Adversary Power \\n \
(\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\
\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", 14, StripOnInput -> False], 
          HoldForm], TraditionalForm], None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     LabelStyle -> {FontSize -> 10, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Force as a Function \\n of Adversary Power\"", 14, StripOnInput -> 
        False], TraditionalForm], PlotRange -> {{0., 1.53}, {0., 1.8}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*StyleBox[\\\"Unilateral\\\",FontWeight->\\\"Bold\\\"]\\)\"",
        "\"\\!\\(\\*StyleBox[\\\"With\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\\
*StyleBox[\\\" \
\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*StyleBox[\\\"AUMF\\\",FontWeight->\\\
\"Bold\\\"]\\)\"", 
       "\"\\!\\(\\*StyleBox[\\\"Unilateral\\\",FontWeight->\\\"Bold\\\"]\\) \
(observed)\"", 
       "\"\\!\\(\\*StyleBox[\\\"With\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\
StyleBox[\\\" \
\\\",FontWeight->\\\"Bold\\\"]\\)\\!\\(\\*StyleBox[\\\"AUMF\\\",FontWeight->\\\
\"Bold\\\"]\\) (observed)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[0.4]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[0.4]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[0.4]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[0.4]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    Opacity[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Opacity[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 10, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "0.4`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "0.4`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "1", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], "}"}], ",", 
           
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 
                 TemplateBox[<|"color" -> GrayLevel[0]|>, 
                  "GrayLevelColorSwatchTemplate"]}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.945956472595295*^9},
 CellLabel->
  "Out[2776]=",ExpressionUUID->"cc8bf1d6-b4e1-4975-9975-006e9cfdb0d9"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_7.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.9069104645466547`*^9, 3.9069105213966637`*^9, 3.9069106750241823`*^9, {
   3.9069108205463943`*^9, 3.906910869331481*^9}, 3.906910900137689*^9, {
   3.906910991783383*^9, 3.906911020996023*^9}, {3.9069111223178787`*^9, 
   3.906911141612813*^9}, 3.906911340928501*^9, {3.906911376279394*^9, 
   3.906911396066017*^9}, 3.906911504557631*^9, 3.906969413800804*^9, 
   3.90697440391748*^9, 3.9069748492102833`*^9, 3.906977088918149*^9, 
   3.907926912552414*^9, {3.907927006050268*^9, 3.907927012233047*^9}, 
   3.908623699213292*^9, {3.90863038686368*^9, 3.908630414817621*^9}, 
   3.908630472748274*^9, 3.9086308486767197`*^9, 3.908631022523142*^9, 
   3.9455032208195677`*^9, 3.945504093273157*^9, 3.945504440844574*^9, {
   3.945529051821944*^9, 3.945529078387928*^9}, 3.945529111975946*^9, 
   3.945529180952621*^9, 3.945529348200419*^9, 3.9456058079336357`*^9, 
   3.9456072908608313`*^9, 3.945686144078114*^9, 3.945956408899845*^9, 
   3.9459564727445803`*^9},
 CellLabel->
  "Out[2777]=",ExpressionUUID->"68b48c80-e48a-4858-a04d-b92378291d98"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{15, Automatic}, {Automatic, -1}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"98c1277a-185c-4094-bdf0-32d4dbac45da"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 803, 17, 136, "Input",ExpressionUUID->"a97abf7b-cdfc-4a81-8ac8-2e39647e2bce"],
Cell[1386, 41, 557, 8, 48, "Output",ExpressionUUID->"0566139a-cd5c-4aa5-9ed2-788f0f385f03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1980, 54, 1105, 27, 116, "Input",ExpressionUUID->"9343096e-8a71-443c-9610-f10a7a28083c"],
Cell[3088, 83, 1965, 38, 65, "Output",ExpressionUUID->"2bdc075e-afdc-48a6-9ae7-ecbcaf3393b6"]
}, Open  ]],
Cell[5068, 124, 353, 6, 30, "Input",ExpressionUUID->"bbaeda3e-0560-40a0-9502-37223576c581"],
Cell[CellGroupData[{
Cell[5446, 134, 3221, 72, 493, "Input",ExpressionUUID->"a1da13ca-4282-4846-bea1-3d36af441041"],
Cell[8670, 208, 3839, 57, 48, "Output",ExpressionUUID->"cbd6a569-9b3c-4762-80fb-fd63bb153802"],
Cell[12512, 267, 3839, 57, 48, "Output",ExpressionUUID->"e9984917-669a-4e7e-939d-30a6d60f2003"],
Cell[16354, 326, 3801, 55, 48, "Output",ExpressionUUID->"b7ebe665-8d72-4d48-b06a-fa020a72241a"],
Cell[20158, 383, 3872, 58, 48, "Output",ExpressionUUID->"c5f89517-8eae-438e-9cb0-8b6a60483d11"],
Cell[24033, 443, 3993, 62, 65, "Output",ExpressionUUID->"f3918591-786d-4772-80bf-aca6d5a0df11"],
Cell[28029, 507, 3985, 62, 65, "Output",ExpressionUUID->"929d298f-aadf-4944-a23e-5c6a20956c5f"],
Cell[32017, 571, 3824, 56, 48, "Output",ExpressionUUID->"1a8a573b-7e64-43a6-a129-2dd6f6dbdc60"],
Cell[35844, 629, 3824, 56, 48, "Output",ExpressionUUID->"9a2964c2-e1ad-42c2-a566-30fc0a6e1d2c"],
Cell[39671, 687, 3824, 56, 48, "Output",ExpressionUUID->"71d9572a-b1ce-4652-ae3a-d6c4a3a4c718"],
Cell[43498, 745, 3870, 58, 48, "Output",ExpressionUUID->"3fdd05b0-5643-486a-b43c-c2801aca747f"],
Cell[47371, 805, 3824, 56, 48, "Output",ExpressionUUID->"2fb8146f-5bbc-4705-8257-86d3e11459f9"],
Cell[51198, 863, 3824, 56, 48, "Output",ExpressionUUID->"4bd58257-00f2-4cf6-b757-66aa6b3ab54e"],
Cell[55025, 921, 3821, 56, 48, "Output",ExpressionUUID->"e13b5be7-5263-4e1a-9848-59dae02064f8"],
Cell[58849, 979, 3821, 56, 48, "Output",ExpressionUUID->"916ec979-026b-4d8e-bda3-2d80f0147bd1"],
Cell[62673, 1037, 3821, 56, 48, "Output",ExpressionUUID->"f57b5cd6-99b5-4b56-93ea-6ad1375e9c3b"],
Cell[66497, 1095, 3831, 56, 48, "Output",ExpressionUUID->"ede349f3-a397-4b61-b2e0-320a34877a4e"],
Cell[70331, 1153, 3831, 56, 48, "Output",ExpressionUUID->"892bb058-9228-4fdb-b6bf-e8317d2c109e"],
Cell[74165, 1211, 3830, 56, 48, "Output",ExpressionUUID->"d66847ee-b01c-4488-940d-776ce9189adf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78032, 1272, 184, 3, 30, "Input",ExpressionUUID->"ea345e6b-d5a6-44b5-9abd-5d85abb9555a"],
Cell[78219, 1277, 3741, 55, 48, "Output",ExpressionUUID->"7f2c8930-61f7-4721-ab00-bad5c3a1c01f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81997, 1337, 244, 5, 30, "Input",ExpressionUUID->"8ae6ab1f-8a70-426f-bab8-142a64cadb04"],
Cell[82244, 1344, 3693, 55, 48, "Output",ExpressionUUID->"43483d79-ac0c-4eab-8987-81eca771e461"]
}, Open  ]],
Cell[85952, 1402, 225, 5, 30, "Input",ExpressionUUID->"7289fde1-7696-493d-9129-055ea222d13b"],
Cell[86180, 1409, 178, 3, 30, "Input",ExpressionUUID->"491f5257-8116-48b4-917f-552188ea19ee"],
Cell[86361, 1414, 178, 3, 30, "Input",ExpressionUUID->"c1fa1cc6-53c7-4f5b-87d0-c39caa201e86"],
Cell[CellGroupData[{
Cell[86564, 1421, 597, 12, 52, "Input",ExpressionUUID->"872ab524-b5ad-49f7-945c-3dc0caf0a113"],
Cell[87164, 1435, 3776, 56, 65, "Output",ExpressionUUID->"40e834fa-d6cc-419a-a6d3-b8d3711cb6b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90977, 1496, 185, 3, 30, "Input",ExpressionUUID->"8d10f708-dd52-48b7-8837-9851b0d0a3c2"],
Cell[91165, 1501, 3705, 57, 65, "Output",ExpressionUUID->"9ff984ef-2d8a-469e-b123-619fa18d990a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94907, 1563, 326, 8, 30, "Input",ExpressionUUID->"9f9e1ad6-f8cf-4873-a988-51cab06582b5"],
Cell[95236, 1573, 3750, 59, 69, "Output",ExpressionUUID->"e826ccb5-6cb8-4d76-81cb-b56bef914f00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99023, 1637, 565, 14, 30, "Input",ExpressionUUID->"7f016cc2-ccdc-45ea-910d-079d99f81495"],
Cell[99591, 1653, 4074, 69, 81, "Output",ExpressionUUID->"2bdc3a98-5d43-4b36-9ae3-e85e197a38c1"]
}, Open  ]],
Cell[103680, 1725, 173, 4, 30, "Input",ExpressionUUID->"3908e3fa-864e-4660-a1bb-a94309da703c"],
Cell[CellGroupData[{
Cell[103878, 1733, 394, 10, 58, "Input",ExpressionUUID->"52930e94-608a-41f5-8721-3a912ac50b3a"],
Cell[104275, 1745, 3558, 54, 71, "Output",ExpressionUUID->"5368cbdf-ccb3-4392-af0c-bd4ef6dcfc87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107870, 1804, 481, 11, 30, "Input",ExpressionUUID->"0b4e30f3-a84d-425e-90b3-db9eeba5a40a"],
Cell[108354, 1817, 3601, 57, 95, "Output",ExpressionUUID->"63318e51-b663-4cdf-8839-9677634b635e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111992, 1879, 173, 4, 30, "Input",ExpressionUUID->"a21d9971-e38f-41a3-ba2e-020f7ddc3459"],
Cell[112168, 1885, 2305, 36, 49, "Output",ExpressionUUID->"583896a1-2d55-4b55-8c57-802d2767c6a5"]
}, Open  ]],
Cell[114488, 1924, 201, 4, 30, "Input",ExpressionUUID->"d031db29-c301-4b31-b24d-ad8190a86451"],
Cell[114692, 1930, 276, 5, 30, "Input",ExpressionUUID->"db8ba6cf-038f-4eaf-9e0c-ebb3c3c5bdd4"],
Cell[114971, 1937, 919, 20, 52, "Input",ExpressionUUID->"f00d1e86-a8e0-4280-828e-b7885cec3a1c"],
Cell[115893, 1959, 178, 3, 30, "Input",ExpressionUUID->"d79aa3aa-564f-4611-91b2-dae2a7ffaf1f"],
Cell[CellGroupData[{
Cell[116096, 1966, 693, 14, 220, "Input",ExpressionUUID->"7f7ec321-2552-4a24-9780-1dda8a4675c6"],
Cell[116792, 1982, 3072, 50, 95, "Output",ExpressionUUID->"ad61f13c-2f81-4525-b90b-57714ce83fe3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119901, 2037, 171, 4, 30, "Input",ExpressionUUID->"22a5a40d-ae1f-45e8-847a-df7a92baf68a"],
Cell[120075, 2043, 2311, 37, 49, "Output",ExpressionUUID->"0d469a3c-f251-44c4-8cce-51ee252c3114"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122423, 2085, 150, 3, 30, "Input",ExpressionUUID->"90cbca63-54ce-482b-8f94-5b51905db857"],
Cell[122576, 2090, 3044, 47, 71, "Output",ExpressionUUID->"01e62d28-4a6f-4b5a-8ce2-f7e0bee80b1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125657, 2142, 552, 13, 73, "Input",ExpressionUUID->"50946df5-fc76-4a86-b4e2-7e000c449fd6"],
Cell[126212, 2157, 3183, 52, 98, "Output",ExpressionUUID->"4f7bd700-0c5a-4106-af4e-8247d98f2659"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129432, 2214, 171, 4, 30, "Input",ExpressionUUID->"8a070f2b-1a9a-416d-b613-b8328c3c7195"],
Cell[129606, 2220, 2295, 37, 70, "Output",ExpressionUUID->"27c9b5ca-4a16-4995-b1ed-9815fd45fe6f"]
}, Open  ]],
Cell[131916, 2260, 254, 4, 30, "Input",ExpressionUUID->"e9d912c5-a84e-481c-9168-3f25f1d0be7d"],
Cell[132173, 2266, 176, 3, 30, "Input",ExpressionUUID->"10cce854-0299-4822-81f5-ce8f55fc97b0"],
Cell[132352, 2271, 178, 3, 30, "Input",ExpressionUUID->"7601c023-4bba-46ed-bf3c-c545f8373da3"],
Cell[CellGroupData[{
Cell[132555, 2278, 569, 14, 94, "Input",ExpressionUUID->"d7b444f5-9f4b-4648-9ba5-0758994976fe"],
Cell[133127, 2294, 3935, 85, 128, "Output",ExpressionUUID->"c2fc8695-f616-416c-bd7e-0e2f5dd68601"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137099, 2384, 281, 7, 52, "Input",ExpressionUUID->"8b105d6b-af63-4753-899b-d2c2bc6dfe8f"],
Cell[137383, 2393, 2689, 51, 72, "Output",ExpressionUUID->"1d7f9584-c094-4689-a6b5-3f1bec00d3da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140109, 2449, 508, 11, 220, "Input",ExpressionUUID->"5e7516d9-f87b-4451-97a2-3664e0362628"],
Cell[140620, 2462, 1894, 32, 70, "Output",ExpressionUUID->"0dc96c29-50b8-4d14-93b5-c039a1e57da5"]
}, Open  ]],
Cell[142529, 2497, 175, 3, 30, "Input",ExpressionUUID->"aa501022-c467-4505-b8c6-09a87f5db740"],
Cell[CellGroupData[{
Cell[142729, 2504, 558, 13, 30, "Input",ExpressionUUID->"2578e549-6745-4065-9422-3bf3510927ad"],
Cell[143290, 2519, 3640, 65, 75, "Output",ExpressionUUID->"a9ff8887-81dc-4a68-b124-8e814103bc51"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146967, 2589, 552, 14, 47, "Input",ExpressionUUID->"b698264c-f7ae-4f17-a946-8021784a1930"],
Cell[147522, 2605, 2948, 48, 63, "Output",ExpressionUUID->"81d9d64c-8e46-4260-835e-f2a327c1e7cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150507, 2658, 365, 8, 94, "Input",ExpressionUUID->"60db8c4c-67ca-48f5-a3c2-b360d422d61f"],
Cell[150875, 2668, 2640, 43, 63, "Output",ExpressionUUID->"cc0c5bbe-d5a2-48df-8fd2-194849957539"],
Cell[153518, 2713, 2875, 53, 98, "Output",ExpressionUUID->"8979c31a-bfd6-4fa2-bcdb-d930ce4e0184"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156430, 2771, 1039, 25, 178, "Input",ExpressionUUID->"209a4fa8-5ff9-4665-b8eb-9669e6c41658"],
Cell[157472, 2798, 1530, 32, 63, "Output",ExpressionUUID->"d8bb1191-b159-4050-b466-183375263fb7"],
Cell[159005, 2832, 1795, 43, 98, "Output",ExpressionUUID->"1a5a8a7d-5d69-494d-9de4-00cac72782fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160837, 2880, 892, 21, 142, "Input",ExpressionUUID->"794a7df3-20b7-45a2-8622-20f015b171ce"],
Cell[161732, 2903, 3124, 57, 76, "Output",ExpressionUUID->"7cd95fd9-6d22-48bf-8613-46293611a34b"],
Cell[164859, 2962, 3390, 65, 107, "Output",ExpressionUUID->"cc12994d-fafb-4703-8190-9ffd3a1ae042"]
}, Open  ]],
Cell[168264, 3030, 176, 3, 30, "Input",ExpressionUUID->"2539e8a9-875c-4c6b-a212-f0876e38250d"],
Cell[168443, 3035, 863, 17, 325, "Input",ExpressionUUID->"3ce0f482-0d8f-4021-93c5-00d15a1c9cfb"],
Cell[169309, 3054, 918, 18, 388, "Input",ExpressionUUID->"0f2decd4-ce6f-4e98-a98d-e11b2c693a6c"],
Cell[170230, 3074, 363, 8, 73, "Input",ExpressionUUID->"eede7c45-6d04-415a-a719-b79aa9169d4e"],
Cell[CellGroupData[{
Cell[170618, 3086, 218, 4, 30, "Input",ExpressionUUID->"7a39e68e-35d4-48db-9b55-9178b2a81eb9"],
Cell[170839, 3092, 3307, 55, 74, "Output",ExpressionUUID->"b3be8174-00cb-416f-aaa0-334f10f34777"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174183, 3152, 253, 6, 30, "Input",ExpressionUUID->"dc128c71-1879-4e01-83d3-3718af7901fd"],
Cell[174439, 3160, 3641, 67, 83, "Output",ExpressionUUID->"158fae70-6226-43e9-bf80-6147424699ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178117, 3232, 544, 13, 30, "Input",ExpressionUUID->"bc92607b-087f-4aac-a50b-058242702c64"],
Cell[178664, 3247, 3754, 67, 82, "Output",ExpressionUUID->"3bee8575-b479-4b3d-86c6-90220880669c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182455, 3319, 670, 18, 59, "Input",ExpressionUUID->"864892cb-6892-4d45-baf6-18193ce1f150"],
Cell[183128, 3339, 3131, 53, 72, "Output",ExpressionUUID->"2eae4571-6742-4abb-88dc-b44404f45731"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186296, 3397, 308, 7, 30, "Input",ExpressionUUID->"09f6e0b5-1f48-45dc-b103-50c6a52c4ee3"],
Cell[186607, 3406, 1593, 29, 73, "Output",ExpressionUUID->"f62a6b9c-90b4-4df7-8e06-d3284f1a36f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188237, 3440, 327, 8, 30, "Input",ExpressionUUID->"3361f1a4-924c-4dbb-9da1-e1acb09ed6dc"],
Cell[188567, 3450, 2503, 48, 99, "Output",ExpressionUUID->"9126480f-2e27-4d60-bf84-e65fa821e340"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191107, 3503, 304, 7, 30, "Input",ExpressionUUID->"f6d033fb-5002-4171-a3d0-fd716eaf955c"],
Cell[191414, 3512, 2147, 35, 73, "Output",ExpressionUUID->"5e79c1b3-246e-41ef-97f7-9cc6fdc86626"]
}, Open  ]],
Cell[193576, 3550, 202, 4, 30, "Input",ExpressionUUID->"8bf93e66-2499-482e-a419-2aca10c16fc4"],
Cell[193781, 3556, 176, 3, 30, "Input",ExpressionUUID->"4211e902-c9dd-4fed-b6cc-b65b67f347ad"],
Cell[193960, 3561, 174, 3, 30, "Input",ExpressionUUID->"be9bdca5-5ea8-4981-847f-f38ce49f4acd"],
Cell[194137, 3566, 226, 4, 30, "Input",ExpressionUUID->"9df41c0c-4635-4e2a-b337-0714fee02de3"],
Cell[194366, 3572, 178, 3, 30, "Input",ExpressionUUID->"4b07b22a-6163-4009-aa0c-f161f8560616"],
Cell[194547, 3577, 174, 3, 30, "Input",ExpressionUUID->"1614fa0f-8ee5-4506-9cfa-bb269ac6c3da"],
Cell[194724, 3582, 180, 3, 30, "Input",ExpressionUUID->"f2339b38-e06c-4272-9d1e-ae93e2f38a55"],
Cell[194907, 3587, 565, 8, 52, "Input",ExpressionUUID->"15c80f76-344e-4f32-8ac1-9e031aa640c7"],
Cell[CellGroupData[{
Cell[195497, 3599, 366, 8, 94, "Input",ExpressionUUID->"02cf2b26-0e07-4afb-b35e-4558dad29e9a"],
Cell[195866, 3609, 2546, 43, 73, "Output",ExpressionUUID->"ece1ea59-cb1d-4f0b-bd50-3b6ea1035396"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198449, 3657, 1220, 25, 220, "Input",ExpressionUUID->"aa9f9840-9c78-43da-acf6-e4c011ab69d2"],
Cell[199672, 3684, 2369, 38, 73, "Output",ExpressionUUID->"e4ee6dd4-9632-446d-9f6b-e66987d7e970"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202078, 3727, 466, 12, 52, "Input",ExpressionUUID->"18b22028-6350-48b4-b149-55ab62456b35"],
Cell[202547, 3741, 2474, 41, 82, "Output",ExpressionUUID->"1fd8b8c3-a71a-4267-a9a7-b78f542ff053"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205058, 3787, 344, 7, 94, "Input",ExpressionUUID->"25755023-8cd6-4fb1-9e12-58f70da8b0c8"],
Cell[205405, 3796, 1433, 27, 82, "Output",ExpressionUUID->"f16a0a23-a9e1-4e2a-8715-23bea57a17fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206875, 3828, 405, 11, 30, "Input",ExpressionUUID->"ba37310d-1668-492f-b432-80d7fda2d5fb"],
Cell[207283, 3841, 4927, 123, 222, "Output",ExpressionUUID->"01519f5a-f190-497a-bbcc-df4aa3a89675"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212247, 3969, 244, 6, 30, "Input",ExpressionUUID->"11e78b57-c317-44c5-9909-16bc86f5da76"],
Cell[212494, 3977, 4083, 97, 247, "Output",ExpressionUUID->"b5cb66aa-7d9d-4043-a3aa-10da4d6d3654"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216614, 4079, 484, 11, 30, "Input",ExpressionUUID->"32dfd5ee-6f8e-4d2c-8a6b-444e4cd49562"],
Cell[217101, 4092, 2723, 64, 150, "Output",ExpressionUUID->"ab77b315-f943-44e9-b20e-eb2923f362e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219861, 4161, 1643, 43, 86, "Input",ExpressionUUID->"e02b21bd-db12-409a-a1ec-60df6066e423"],
Cell[221507, 4206, 3134, 64, 96, "Output",ExpressionUUID->"908f7724-4f56-4623-9512-5a81a399b701"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224678, 4275, 277, 6, 30, "Input",ExpressionUUID->"3babcd4b-8663-46f7-8f98-6d79e9a2cbac"],
Cell[224958, 4283, 2099, 44, 83, "Output",ExpressionUUID->"5f98677a-2218-4f98-9c48-2322ec4643f5"]
}, Open  ]],
Cell[227072, 4330, 173, 3, 52, "Input",ExpressionUUID->"02d43dff-190c-4e1a-ab75-9cb8c58b1a8f"],
Cell[CellGroupData[{
Cell[227270, 4337, 281, 6, 73, "Input",ExpressionUUID->"9cd83f23-3f39-4bdf-9a3c-c077d61d5457"],
Cell[227554, 4345, 2594, 51, 83, "Output",ExpressionUUID->"3ee67bea-8e63-440f-9a84-0d22ec666fbf"],
Cell[230151, 4398, 2847, 59, 93, "Output",ExpressionUUID->"c9ae47f8-11dc-439c-8f21-74ee3f3874b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233035, 4462, 1011, 24, 115, "Input",ExpressionUUID->"9345e6e5-6394-4a5a-962c-ac28e8834dcd"],
Cell[234049, 4488, 1912, 46, 83, "Output",ExpressionUUID->"2aec8b56-9d84-41f6-b4ba-c23bc0936f40"],
Cell[235964, 4536, 2185, 54, 93, "Output",ExpressionUUID->"f284db93-440c-4876-8f2a-4c3c08b143c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238186, 4595, 978, 25, 162, "Input",ExpressionUUID->"bd1254f4-6ec2-4199-82dc-70cbdf699cf3"],
Cell[239167, 4622, 3209, 69, 188, "Output",ExpressionUUID->"809503b4-7fc1-4e24-8970-fdbc57ffd3d2"],
Cell[242379, 4693, 3529, 76, 188, "Output",ExpressionUUID->"167e20c7-90dd-41da-9abc-8b318a7603ef"]
}, Open  ]],
Cell[245923, 4772, 2010, 35, 829, "Input",ExpressionUUID->"d710807b-edbe-41a9-ade3-4bfa09c0cfe1"],
Cell[CellGroupData[{
Cell[247958, 4811, 475, 10, 115, "Input",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],
Cell[248436, 4823, 2088, 38, 74, "Output",ExpressionUUID->"e7741ee9-5758-4906-bcd8-ad26dea4bac0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250561, 4866, 604, 14, 94, "Input",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],
Cell[251168, 4882, 2424, 50, 82, "Output",ExpressionUUID->"cbc10482-87df-48fd-980a-09deb00ee59c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253629, 4937, 860, 22, 146, "Input",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],
Cell[254492, 4961, 2176, 39, 72, "Output",ExpressionUUID->"cfe5fc3b-55ae-48a2-b672-e2c72b52f344"],
Cell[256671, 5002, 2139, 37, 73, "Output",ExpressionUUID->"816e4a70-237d-4949-9929-00240f397cb9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258847, 5044, 262, 7, 30, "Input",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],
Cell[259112, 5053, 2252, 47, 95, "Output",ExpressionUUID->"d1987797-48ee-4d23-951f-f55030d63259"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261401, 5105, 249, 6, 30, "Input",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],
Cell[261653, 5113, 1831, 33, 68, "Output",ExpressionUUID->"f4dd5881-dbba-43ca-8ca6-c81ab77b3cf1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[263521, 5151, 177, 4, 30, "Input",ExpressionUUID->"a01fcee5-71a1-44a9-97e4-40525aea864f"],
Cell[263701, 5157, 1249, 23, 73, "Output",ExpressionUUID->"37cd0381-c809-4b19-9d8b-28d0d8a2d035"]
}, Open  ]],
Cell[264965, 5183, 352, 6, 73, "Input",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],
Cell[CellGroupData[{
Cell[265342, 5193, 413, 8, 94, "Input",ExpressionUUID->"38f490b6-b786-466d-865d-1840daa5862f"],
Cell[265758, 5203, 2005, 36, 68, "Output",ExpressionUUID->"69712f95-cb39-4975-a059-767b6effd34a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267800, 5244, 246, 6, 30, "Input",ExpressionUUID->"fd81ac91-4720-4240-b602-6af9690887b2"],
Cell[268049, 5252, 1912, 35, 68, "Output",ExpressionUUID->"5cd0b387-a66b-4dec-9216-3063198f2af2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269998, 5292, 533, 14, 94, "Input",ExpressionUUID->"f4844d6e-2f64-461d-95b8-15550198b3df"],
Cell[270534, 5308, 2057, 38, 77, "Output",ExpressionUUID->"5e6c48b2-a50c-48ba-a5c7-7e2d754e5692"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272628, 5351, 250, 6, 30, "Input",ExpressionUUID->"873b28af-b0f8-414b-adc6-b1d915c77fb8"],
Cell[272881, 5359, 863, 18, 82, "Output",ExpressionUUID->"6307a148-9197-4b84-bbb5-3cfdefe72578"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273781, 5382, 476, 13, 52, "Input",ExpressionUUID->"58489f06-8ec6-4a94-a4f2-ae51861d8752"],
Cell[274260, 5397, 4167, 110, 239, "Output",ExpressionUUID->"fdd66ae9-edae-4513-bb1e-304a2c7b1fc3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278464, 5512, 244, 6, 30, "Input",ExpressionUUID->"eb868d50-f682-4c89-ac1c-84a04caf6123"],
Cell[278711, 5520, 2866, 68, 101, "Output",ExpressionUUID->"ce1ece21-ecdd-4379-813a-819d2c36b2c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[281614, 5593, 829, 20, 136, "Input",ExpressionUUID->"86b16519-51c2-4dee-a398-55d317809c5d"],
Cell[282446, 5615, 2441, 51, 83, "Output",ExpressionUUID->"0a139bf8-b9d5-4baf-bf7b-c5e89e85242d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284924, 5671, 1154, 31, 96, "Input",ExpressionUUID->"350b2bb9-2f22-4319-ae27-91d6c48abd91"],
Cell[286081, 5704, 2319, 48, 83, "Output",ExpressionUUID->"7ee29f8f-384f-497e-a67a-059120a3ae7e"]
}, Open  ]],
Cell[288415, 5755, 232, 4, 73, "Input",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],
Cell[CellGroupData[{
Cell[288672, 5763, 784, 20, 52, "Input",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],
Cell[289459, 5785, 2527, 54, 83, "Output",ExpressionUUID->"368e9c9f-e383-478c-b3bb-83ec0dfcd2c2"],
Cell[291989, 5841, 2043, 39, 82, "Output",ExpressionUUID->"adb737da-37ef-4ae0-b4b6-19d771547407"]
}, Open  ]],
Cell[CellGroupData[{
Cell[294069, 5885, 1020, 25, 162, "Input",ExpressionUUID->"225e7edc-d72d-427a-bd5f-091dd9aa83b6"],
Cell[295092, 5912, 2191, 55, 188, "Output",ExpressionUUID->"c7ffdfaf-f133-4ed9-95b8-9b63d37109ef"],
Cell[297286, 5969, 2512, 62, 188, "Output",ExpressionUUID->"b3517cfb-3a20-43f5-b1ef-3d004392de75"]
}, Open  ]],
Cell[299813, 6034, 1024, 19, 451, "Input",ExpressionUUID->"ca7b1d9a-a279-4147-9b0b-6a2bc372adc5"],
Cell[300840, 6055, 1590, 29, 766, "Input",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"],
Cell[302433, 6086, 639, 13, 241, "Input",ExpressionUUID->"7e6f87b0-c3de-4ffa-8e28-b2ffef06138d"],
Cell[CellGroupData[{
Cell[303097, 6103, 1034, 29, 136, "Input",ExpressionUUID->"5a78d8a9-25d8-458a-b45c-110ce6c66e8f"],
Cell[304134, 6134, 3486, 104, 293, "Output",ExpressionUUID->"4695e41d-8498-4ec0-9d11-29fe5853c89c"],
Cell[307623, 6240, 4818, 131, 489, "Output",ExpressionUUID->"b2aa1403-9796-4876-b2b0-c1956ae90b0a"]
}, Open  ]],
Cell[312456, 6374, 759, 15, 304, "Input",ExpressionUUID->"6a347e81-f46a-4916-9feb-e74800a77109"],
Cell[313218, 6391, 668, 11, 94, "Input",ExpressionUUID->"56da9a59-b03b-4d21-ab56-66c9bfe22ce1"],
Cell[CellGroupData[{
Cell[313911, 6406, 2642, 73, 178, "Input",ExpressionUUID->"80c9db18-b9cc-4a7d-813e-6c11ebe8218e"],
Cell[316556, 6481, 3755, 108, 290, "Output",ExpressionUUID->"d5e78460-82cc-428f-8275-ce1d265a9c66"],
Cell[320314, 6591, 6533, 180, 621, "Output",ExpressionUUID->"f8fc39fc-1d55-4f2f-972d-b4c8ac30ad93"],
Cell[326850, 6773, 6921, 193, 588, "Output",ExpressionUUID->"b799b26c-3a8f-40ac-a75a-b8cd358cf767"]
}, Open  ]],
Cell[333786, 6969, 702, 11, 115, "Input",ExpressionUUID->"125ae15c-8aa3-4f93-8e8d-98526880df05"],
Cell[334491, 6982, 380, 6, 136, "Input",ExpressionUUID->"6609b1a3-d8bc-4ae2-9fe3-33f73c0603c1"],
Cell[CellGroupData[{
Cell[334896, 6992, 496, 11, 52, "Input",ExpressionUUID->"4bb35295-c917-4019-9551-c1712f72b92b"],
Cell[335395, 7005, 9454, 244, 790, "Output",ExpressionUUID->"2518aa1f-576f-49e4-8872-258009129f0d"],
Cell[344852, 7251, 7705, 204, 588, "Output",ExpressionUUID->"242a7d5c-f185-45bd-8150-beca2c472d7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352594, 7460, 1883, 49, 115, "Input",ExpressionUUID->"e5c537c9-22e9-484e-9369-aa7ee0658924"],
Cell[354480, 7511, 17029, 437, 1533, "Output",ExpressionUUID->"6c560bbc-cce7-4781-9b8e-582a6721c556"],
Cell[371512, 7950, 17027, 437, 1533, "Output",ExpressionUUID->"cd109028-85fe-42ff-8269-253d575b4d69"],
Cell[388542, 8389, 17027, 437, 1533, "Output",ExpressionUUID->"2c26d028-5d72-4eee-92f1-407dd63e4801"],
Cell[405572, 8828, 17021, 436, 1505, "Output",ExpressionUUID->"87149249-6c2b-4f17-9bfe-112cb47a0a63"]
}, Open  ]],
Cell[422608, 9267, 3016, 43, 94, "Input",ExpressionUUID->"6081c5fe-8e0a-4dce-9bb2-b09509a02e88"],
Cell[CellGroupData[{
Cell[425649, 9314, 4699, 104, 535, "Input",ExpressionUUID->"8b223710-3ca0-447a-8686-026c706bd1fe"],
Cell[430351, 9420, 1102, 17, 48, "Output",ExpressionUUID->"00e24ccf-0fca-4d13-8f88-947d812f08d5"],
Cell[431456, 9439, 1102, 17, 48, "Output",ExpressionUUID->"09ee9661-c890-4a12-9797-05114bda1abd"],
Cell[432561, 9458, 1102, 17, 48, "Output",ExpressionUUID->"60335b18-e829-4b4c-99d4-625b700b99df"],
Cell[433666, 9477, 1102, 17, 48, "Output",ExpressionUUID->"07b053e8-a4d4-43f5-bba5-75782f4b2113"],
Cell[434771, 9496, 1102, 17, 48, "Output",ExpressionUUID->"bcfe411d-15ec-40dc-b963-a647ebe3f5c2"],
Cell[435876, 9515, 1102, 17, 48, "Output",ExpressionUUID->"d7a9b2db-c147-495b-82a1-e1c927e8db3e"],
Cell[436981, 9534, 1099, 17, 48, "Output",ExpressionUUID->"983bb974-a723-454a-904a-d2e9824ffc82"],
Cell[438083, 9553, 35276, 666, 294, "Output",ExpressionUUID->"cc8bf1d6-b4e1-4975-9975-006e9cfdb0d9"],
Cell[473362, 10221, 1190, 18, 96, "Output",ExpressionUUID->"68b48c80-e48a-4858-a04d-b92378291d98"]
}, Open  ]]
}
]
*)

